Actioner une procédure VBA

Option Explicit
'

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Plage As Range, Intersection As Range
    
    Set Plage = Range("A1")
    Set Intersection = Application.Intersect(Target, Plage)
    
    If Not (Intersection Is Nothing) Then
        Call MaMacro
        Call MaFonction
    End If
    
End Sub
'

Private Sub MaMacro()
    MsgBox "Macro"
End Sub
'

Private Function MaFonction()
    MsgBox "Fonction"
End Function
'