bonjour Doofy,
faut-il faire une distinction entre R et R ? ---> a modifier le bMajuscule_Minuscule etre true et false
Const bMajuscule_Minuscule = False '---> true = sans distinction, false = r est ignoré
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A1")
If Intersect(Target, .Offset(0)) Is Nothing Then Exit Sub 'si A1 n'a pas changé =FIN
b = -1 * bMajuscule_Minuscule
If StrComp(.Value, "R", b) = 0 And StrComp(.Offset(1, 1), "R", b) <> 0 Then .Offset(, 1).Value = .Offset(, 1).Value + 1 'si A1 est R et son copie B2 n'est pas R, incrementer B1
.Offset(1, 1).Value = .Value 'B2=copie de A1
End With
End Sub