Bonsoir
Corrige ta macro avec ces lignes
If Not c Is Nothing Then
lignecopie = 7
'On enregistre la premiere case trouvé
first = c.Address
'On repete temps que l'on ne revient pas à la premiére case trouvé
Do
ligneliste = c.Row
'On copie la ligne d'une feuille a l'autre
Sheets(2).Range("A" & lignecopie) = c.Offset(0, -1)
Sheets(2).Range("B" & lignecopie) = c
lignecopie = lignecopie + 1
'On recherche le suivant
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> first
End If
A plus
@+Vincent