XL 2019 Choix lancement de macro selon résutat d'une boucle

Sub exemple_d_appel()
    Message 2
End Sub

Sub Message(index As Byte)
    Select Case index
       Case 1: MsgBox "blabla 1"
       Case 2: MsgBox "blabla 2"
       Case 3: MsgBox "blabla 3"
       Case 4: MsgBox "blabla 4"
       Case 5: MsgBox "blabla 5"
       Case 6: MsgBox "blabla 6"
       Case 7: MsgBox "blabla 7"
       Case 8: MsgBox "blabla 8"
       Case 9: MsgBox "blabla 9"
    End Select
End Sub

Sub Exemple2()
Dim Msg As Variant

    Msg = Array("blabla 0", "blabla 1", "blabla 2", "blabla 3", "blabla 4", "blabla 5", "blabla 6", "blabla 7", "blabla 8", "blabla 9")
    
    MsgBox Msg(2)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte

    For i = 1 To 9
        If Selection.Count = 1 Then
            If Not Intersect(Target, Cells(i, 3)) Is Nothing Then
                Message i
            End If
        End If
    Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:C9")) Is Nothing Then Message Target.Row
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg As Variant

    Msg = Array("blabla 0", "blabla 1", "blabla 2", "blabla 3", "blabla 4", "blabla 5", "blabla 6", "blabla 7", "blabla 8", "blabla 9")
    If Not Intersect(Target, Range("C1:C9")) Is Nothing Then MsgBox Msg(Target.Row)
End Sub