Sub copie()
num_fact = 8 'reprendre le n° de facture
With Worksheets("FactCompta").Range("a2:a500")
Set c = .Find(num_fact, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ligne = c.Row
Worksheets("Facturation").Cells(18 + a, 5).Value = Worksheets("FactCompta").Cells(ligne, 4).Value
Worksheets("Facturation").Cells(18 + a, 4).Value = Worksheets("FactCompta").Cells(ligne, 5).Value
Worksheets("Facturation").Cells(18 + a, 11).Value = Worksheets("FactCompta").Cells(ligne, 6).Value
Worksheets("Facturation").Cells(18 + a, 12).Value = Worksheets("FactCompta").Cells(ligne, 7).Value
a = a + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
a = 0
End With
End Sub