valCherchée = 2
TEXTECherché="24bis"
With ActiveSheet.Range("N:N")
Set c = .Find(valCherchée, lookat:=xlWhole)
If Not c Is Nothing Then
MsgBox ("Valeur exacte trouvée en: " & c.Address)
MsgBox ("ligne: " & c.Row)
MsgBox ("colonne: " & c.Column)
c.Offset(0, 1) = 10 * valCherchée
c.Offset(0, 1).Select 'le select ne sert à rien pour la macro. juste à te montrer que VBA voit ca comme une range qu'il peut aller sélectionner
Else
MsgBox (valCherchée & " n'a pas été trouvée")
End If
Set d= .Find(TEXTECherché, lookat:=xlWhole)
If Not d Is Nothing Then
MsgBox ("Valeur exacte trouvée en: " & d.Address)
MsgBox ("ligne: " & d.Row)
MsgBox ("colonne: " & d.Column)
d.Offset(0, 1) = TEXTECherché & "autre texte"
d.Offset(0, 1).Select
Else
MsgBox (TEXTECherché& " n'a pas été trouvée")
End If
End With
End Sub