RechercheH en langage VBA

Bonjour à tous,

J'ai reçu pour le besion d'une macro a effectuer un recherchev afin de remplacer la cellule de destination. Seulement maintenant je voudrais faire exactement la même chose mais en faisant une rechercheH.

Voici le code d'origine:
Sub CreditFournisseurs()

With Sheets("Crédit Fournisseurs").Range("A:A")

Set c = .Find(what:=ThisWorkbook.Sheets("Feuil2").Range("A7"), LookIn:=xlValues)
If Not c Is Nothing Then
adr1 = c.Address
Do
c.Offset(, 2) = ThisWorkbook.Sheets("Feuil2").Range("O7")
Set c = .FindNext(c)
Exit Sub
Loop While Not c Is Nothing And c.Address <> adr1
End If
End With
End Sub

Merci d'avance à vous