Private Sub Worksheet_Change(ByVal Target As Range)
Dim Msg As String, Style As String, Title As String, Answer As String
Dim Msg2 As String, Style2 As String, Title2 As String, Answer2 As String
On Error Resume Next
If Range("A" & Target.Row) = "x" Or Range("B" & Target.Row) = "x" Then
Target.Value = UCase(Target.Value)
Exit Sub
End If
If Target.Value = "X" Then
Select Case Target.Column
Case 1
Msg = "colonne A" ' Définit le message.
Style = vbYesNo + vbQuestion
Title = "aaa" ' Définit les titres.
Answer = MsgBox(Msg, Style, Title)
If Answer = vbYes Then Exit Sub ' bouton Oui.(copie une trame dans programme)
If Answer = vbNo Then Exit Sub ' bouton No
Case 2
Msg2 = "colonne A ?" ' Définit le message.
Style2 = vbYesNo + vbQuestion
Title2 = "bbb" ' Définit les titres.
Answer2 = MsgBox(Msg2, Style2, Title2)
If Answer2 = vbYes Then Exit Sub ' bouton Oui. (copie une trame dans programme)
If Answer2 = vbNo Then Exit Sub ' bouton No
End Select
End If
End Sub