Bonsoir Henry
Si tu le veux bien, je me mijote mon petit cours particulier de VBA !
Peux tu me dire comment récupérer ce qui est affiché dans ton Msgbox et ensuite le copier en remplacement de la donnée d'origine ? en A1 car j'ai modifié ton code comme suit :
Sub test()
Dim MonString As String
MonString = Range("A1").Value
MonString = Right(MonString, Len(MonString) - 4)
MsgBox MonString
' copier la nouvelle valeur en A1 (??????????)
End Sub
Merci d'avance
@+
GD