Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'E4' Then
Select Case Target.Value
Case 1, 5, 11
Macro1
Case 2, 3, 4
Macro2
Case 6 To 10, 12 To 20
Macro3
Case 'TOTO1' To 'TOTO9'
Macro4
Case 'AAAA', 'BBBB', 'CCCC'
Macro4
Case Else
MsgBox 'Aucune Macro ne Correspond à cette Valeur !'
End Select
End If
End Sub
Private Sub Macro1()
MsgBox 'Macro1'
End Sub
Private Sub Macro2()
MsgBox 'Macro2'
End Sub
Private Sub Macro3()
MsgBox 'Macro3'
End Sub
Private Sub Macro4()
MsgBox 'Macro4'
End Sub