Connaître, dans une liste de cellules, la position de la cellule sélectionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellAddress As String, tabAddress() As String, i As Integer

If Not Application.Intersect(Target, Range("DilNbUXFl1, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a")) Is Nothing Then
    'récupérer la dans un tableau les adresses de la zone Range
    tabAddress = Split(Range("DilNbUXFl1, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a").Address, ",")
    'boucler sur chaque cellule
    For i = LBound(tabAddress) To UBound(tabAddress)
        If Target(1, 1).Address = tabAddress(i) Then MsgBox i + 1 & "ème position"
    Next i
End If
End Sub