Filtre itératif en fonction de la variable

Bonjour,

A partir d'un fichier Excel, j'envoie des mails avec certains paramètres aux fournisseurs. J'ai réussi à le faire pour un fournisseur sélectionné mais maintenant je souhaiterai le faire pour tous en un seul clic.

Les fournisseurs sont dans la feuille "Envoi" et j'effectue le filtre sur la feuille "Comm_Ach_Prod"

Private Sub RelancerTous_Click()

Dim NbrLigne As Integer
Dim Compt As Integer

Dim cel As Integer

 For Each cel In Worksheets("Envoi").Range("A2:A" & Worksheets("Envoi").Cells(Rows.Count, "A").End(xlUp).Row)

    Cells(cel, 1).Value

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

 Next cel

End Sub

J'ai essayé avec ce code mais je m'emmêle un peu les pinceaux.

Je suis encore débutant