pas sur d'avoir tout compris, regarde peut être le code ci dessous si il peut t'aider :
Code:
Dim x As Range
Set x = Cells.Find("valeurcherchée", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
MsgBox "trouvé en ligne " & x.Row
x.Offset(0, 1).Value = "xxx" 'renseigne une valeur une colonne plus loin
End If