Public Sub Test()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim i As Byte 'déclare la variable i (Incrément)
Dim compteur_deb As Long 'déclare la variable compteur_deb
Dim compteur_fin As Long 'déclare la variable compteur_fin
Sheets("Feuil2").Activate 'sélectionne l'onglet "Feuil2"
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
Set pl = Range("A2:A" & dl) 'définit la plage pl
For i = 1 To 3 'boucle de 1 à 3
Range("A1").AutoFilter Field:=1, Criteria1:=i 'filtre la colonne 1 (=A)du tableau avec i comme critère
compteur_deb = pl.SpecialCells(xlCellTypeVisible).Cells(1, 1).Row 'définit la première ligne du tableau filtrée
compteur_fin = pl.SpecialCells(xlCellTypeVisible).Rows.Count + (compteur_deb - 1) 'définit la dernière ligne du tableau filtrée
Range("A1").AutoFilter 'supprime le filtre automatique
'reste du code
Next i 'prochaine valeur de la boucle
End Sub