Private Sub CommandButton1_Click()
For Each c In Range("C1:C65356")
ligne = c.Row '
If Cells(ligne, 3) = "Fournisseur1" or If Cells(ligne, 3) = "Fournisseur2" or etc etc etc etc Then
nf = Cells(ligne, 1)
nc = Cells(ligne, 2)
etc etc
With worksheets("Feuil2")
lig = blablabla recherche première ligne vide
.cells(lig,1) = nf
etc etc
End If
Next
End Sub