Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D18]) Is Nothing And Target.Count = 1 Then
Select Case Target.Offset(0, -1).Value
Case Is = 1
MsgBox "vous pouvez lancer la macro1"
Case Is = 2
MsgBox "vous pouvez lancer la macro2"
Case Is = 3
MsgBox "vous pouvez lancer la macro3"
Case Is = 4
MsgBox "vous pouvez lancer la macro4"
Case Else
MsgBox "seul les valeurs 1 à 4 sont dispo pour lancer une macro"
End Select
Select Case Target.Offset(0, 1).Value
Case Is = 1
MsgBox "vous pouvez lancer la macro5"
Case Is = 2
MsgBox "vous pouvez lancer la macro6"
Case Is = 3
MsgBox "vous pouvez lancer la macro7"
Case Is = 4
MsgBox "vous pouvez lancer la macro8"
Case Else
MsgBox "seul les valeurs 1 à 4 sont dispo pour lancer une macro"
End Select
End If
End Sub