Entretemps j'ai trouvé une solution bricolage ...
Je clôture le fil
Bonne journée à tous
Premlig = 6
Derlig = 10
For Each c In Range(Cells(Premlig, "C"), Cells(Derlig, "C"))
If Application.CountIf(Sheets("connect").Range("F:F"), c.Value) <> 0 Then
Ligne = Sheets("connect").Range("F:F").Find(c.Value).Row
c.Offset(0, 9) = Sheets("connect").Cells(Ligne, "M")
End If
Next