Bonjour Cathy
Voici le code modifié
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 29/08/2003 par BANCILLON catherine
'
For Each Cell In Selection
contenu = Cell.Value
Cell.FormulaR1C1 = "toto" & contenu & "tata"
Next
End Sub
Bonne journée
@+Jean-Marie