macros excel

Option Explicit

Sub ListeOccurence()
Dim Pos1 As Variant
Dim Pos2 As Variant
Dim I As Integer
[COLOR=YellowGreen][I]'efface le contenu des cellules [/I][/COLOR]
Sheets("Feuil2").Range("A2:IV65536").ClearContents
[COLOR=YellowGreen][I]'Numéro de la première ligne qui contient les données[/I][/COLOR]
Pos2 = 1
[COLOR=YellowGreen][I]'Boucle sur le nombre de "valeurs à tester" qui présente dans la plage de données[/I][/COLOR]
For I = 1 To Application.CountIf(Sheets("Feuil1").Range("A:A"), Range("A1"))
[I][COLOR=YellowGreen]   'Recherche la position de la "valeur à tester"[/COLOR][/I]
   Pos2 = Application.Match(Range("A1"), Sheets("Feuil1").Range("A" & (Pos1 + Pos2) & ":A65536"), 0)
[COLOR=YellowGreen][I]   'Passe l'index Pos2 de relatif en absolue[/I][/COLOR]
   Pos1 = Pos1 + Pos2
   [I][COLOR=YellowGreen]'Copie la ligne[/COLOR][/I]
   Sheets("Feuil1").Range("A" & Pos1).EntireRow.Copy Destination:=Sheets("Feuil2").Range("A" & I + 1).EntireRow
Next I
End Sub