Microsoft 365 lancer une macro en sélectionnant une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' Ne rien faire si clic sur plusieurs cellules'
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then ' Lancer macro si cellule dans Range'
               ' Code
    End If
End Sub

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' Ne rien faire si modification de plusieurs cellules'
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then ' Macro lancer si cellule modifiée dans le range'
         ' La valeur de la cellule modifiée est dans Target'
         ' Code...
    Endif
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Ne rien faire si clic sur plusieurs cellules'
Application.EnableEvents = False
Select Case True
    Case Not Intersect(Target, Range("D4")) Is Nothing
        Macro1
    Case Not Intersect(Target, Range("D6")) Is Nothing
        Macro2
    Case Not Intersect(Target, Range("D8")) Is Nothing
        Macro3
    Case Else
        'Macro_XX si besoin
End Select
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Ne rien faire si clic sur plusieurs cellules'
Select Case Target.Address
    Case "$D$4":    Macro1
    Case "$D$6":    Macro2
    Case "$D$8":    Macro3
    Case "$D$10":   Macro4
End Select
End Sub