Dim c As Range
With Worksheets("Base de donnée")
Set c = .Range("A:A").Find(NumeroFactureAnnulation, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Set c = c.Offset(0, 8)
With c.EntireRow
.ClearContents
End With
Set c = Nothing
End If
End With