Salut Gérard
Je viens de refaire la macro vite et ca marche:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/10/2004 par MM
'
'
Range("C4:H6").Select
Selection.Replace What:="zaza 3", Replacement:="titi", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
End Sub
En regardant une 2° fois ton post c'est selection_change qui n'est pas la bonne approche.
Si tu voulais déclencher le remplacement après avoir écrit toto dans B2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if intersect(target, range"B2")) is nothing then exit sub
cette ligne limite l'événement à B2 sinon chaque fois que tu cliques tu déclenches le bord...
Ici, d'ailleurs vaudrait p'tet mieux un workshheet_change (je sais jamais lequel prendre)
Et c'est toujours gratos tout ca, mon cher monsieur
Amicalement
Michel