Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B2").CurrentRegion.Columns(1)) Is Nothing Then
Target = UCase(Target)
End If
If Not Intersect(Target, Range("B2").CurrentRegion) Is Nothing Then
If Target <> Target.Offset(0, 100) Then
If MsgBox("Etes-vous sûr de vouloir modifier cette entrée ?", vbYesNo Or vbExclamation Or vbDefaultButton1, "Modification d'une entrée") = vbYes Then
Target.Offset(0, 100) = Target
Else
Target = Target.Offset(0, 100)
End If
End If
End If
Application.EnableEvents = True
End Sub