[VBA Excel] comment reconnaitre les cellules

Sub NumerosDeLignes()
    Dim rngPlage        As Range
    Dim lngIndex        As Long
    Dim lng1            As Long
    Dim lng2            As Long
    Dim blnAsc          As Boolean
    Dim lngLigne(65536) As Long
    Dim lngRow          As Long
    Dim strMessage      As String
    
    ' récupération des numéros de ligne
    ' si une même ligne est sélectionnée sur plusieurs colonnes, 
    ' il y aura des doublons dans la liste...
    lngIndex = 0    ' premier élément du tableau = 0
    For Each rngPlage In Selection.Cells
        lngLigne(lngIndex) = rngPlage.Row
        lngIndex = lngIndex + 1
    Next
    ' dernier élément du tableau = n-1
    lngIndex = lngIndex - 1
    
    ' tri des numéros de ligne
    blnAsc = True       ' tri ascendant, remplacer True par False pour un tri descendant
    For lng1 = 0 To lngIndex
        For lng2 = lng1 + 1 To lngIndex
            lngRow = lngLigne(lng2)
            If blnAsc Then
                If lngRow < lngLigne(lng1) Then
                    lngLigne(lng2) = lngLigne(lng1)
                    lngLigne(lng1) = lngRow
                End If
            Else
                If lngRow > lngLigne(lng1) Then
                    lngLigne(lng2) = lngLigne(lng1)
                    lngLigne(lng1) = lngRow
                End If
            End If
        Next
    Next
    
    ' création du message à afficher dans le msgbox
    For lng1 = 0 To lngIndex
        strMessage = strMessage & lngLigne(lng1) & ", "
    Next
    strMessage = Left(strMessage, Len(strMessage) - 2)
    
    MsgBox strMessage, vbInformation, "Numéros de lignes"
End Sub