ERREUR 9 dans macro avec filtre avancé

[RomaneK]

Bonjour,

J'ai fais la macro suivante qui marchait très bien et d'un coup ça m'affiche "erreur 9: l'indice n'appartient pas à la selection" mais je ne trouve pas l'erreur. Pouvez vous m'aider ?

'Filtre avancé qui séléctionne les éléments cochés dans la feuille Choix matériaux et les copie dans la feuille Mise en préparation
    Columns("AH:AM").Hidden = False
    Sheets("Choix_materiaux").Activate
    ' la ligne suivante a une erreur 9
    Sheets("Choix_materiaux").Range("B22:G100").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Sheets("Mise_en_preparation").Range("AJ2:AO3"),    CopyToRange:=Sheets("Mise_en_preparation").Range("B2:E2"), Unique:=False
    Sheets("Mise_en_preparation").Activate
    ' Cacher la zone de critères
    Columns("AH:AM").Hidden = True
    ' Afficher ou masquer des cases à cocher
    Dim cellule As Range
    For Each cellule In Range("B3:B54")
        'Lorsque la valeur 0 est détecté dans la colonne B, le contenu de la cellule est effacé pour faire disparaitre la case à cocher
        If cellule.Value = "0" Then cellule.ClearContents
        'Lorsque la valeur est différente de 0 dans la colonne B, une case à cocher apparaît dans la colonne nommée "CHOIX"
        If cellule.Value <> "0" Then
        With ActiveSheet.Shapes("Check Box" & cellule.Row)
                 .DrawingObject.Value = False
                 .Visible = cellule <> ""
            End With
        End If
    Next

 

[vgendron]

Bonjour
un changement de nom d'une des feuilles peut etre?
à quel endroit la macro s'arrete t elle?
sans ton fichier, on ne pourra pas t'aider beaucoup plus je pense

 

[RomaneK]

Effectivement, j'étais sûr d'avoir bien vérifié le nom de mes feuilles mais je n'avais pas vu un petit espace ! Je crois que c'est ça sinon je vous joint mon fichier.
Merci !