Dim resultatLigne as Variant
'...
With Sheets("Suivi avenants MQ")
For ligne2 = 8 To .Range("C8").End(xlDown).Row
.Range("F4").Value = "test"
numContrat = .Range("C" & ligne).Value 'valeur de la case ("C" & ligne) stocké dans numContrat
Set resultatLigne = Sheets("traitementGestion").Range("C2:C" & .Range("C2").End(xlDown).Row).Find(numContrat, LookAt:=xlWhole) 'recherche numContrat de suivi des MQ, dans traitementGestion
ligneTraitementGestion = resultatLigne.Row '<<<<< ERREUR ICI !
If Not resultatLigne Is Nothing Then '
'conditions diverses et variées ...
End if
next ligne2
end with