Problème Filtre avec paramètre

Bonjour,

Je souhaiterais faire une boucle qui filtre en fonction de la valeur d'une cellule.

Private Sub RelancerTous_Click()

Dim cel As Range

Dim PlageF As Range

Worksheets("Envoi").Activate
Worksheets("Envoi").Range("A2").Select

Set PlageF = Worksheets("Envoi").Range("A2:A" & Worksheets("Envoi").Cells(Rows.Count, "A").End(xlUp).Row)

For Each cel In PlageF

Var = cel.Value()

    Sheets("Comm_Ach_Prod").Select
    Sheets("Comm_Ach_Prod").Cells(4).AutoFilter Field:=5
    Selection.AutoFilter Field:=4, Criteria1:=Var

 Next cel

End Sub

J'arrive à récupérer la valeur mais au moment d'effectuer le filtre, j'ai une erreur. "Variable objet ou variable de bloc With non définie"

:

bonjour

pas de VBA

joins ton fichier on va le faire

à te relire

Du coup j'ai pu trouver entre temps

Je te remercie quand même.