Bonjour Hosni
Bonjour Bernard22
Petit code à tester :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Value = Left(Target, 1) & "R" & Right(Target, Len(Target) - 1)
Application.EnableEvents = True
End If
End Sub
A la différence d'un format personnalisé, le contenu (et pas seulement l'affichage) sera modifié.