Comment récupérer plusieurs lignes d'un flexgrid?

Voici un code, à adapter, qui supprime ce qui est sélectionné avec la souris.

'on définit une ligne de départ et d'arrivée
pRow = MGrid.Row: pRowSel = MGrid.RowSel
'il faut éventuellement s'occuper du recordset
    rs.LockType = adLockOptimistic: rs.Open "SELECT * FROM " & nameTable & " ", cnx
    rs.MoveFirst
'si on sélectionne une seule ligne
    If pRowSel = pRow Then
        For i = pRow To pRowSel
            MGrid.RemoveItem i
            rs.Move (i - 1)
            rs.Delete
            rs.Update
            RowGridDel = True
        Next i
    End If
 'si la sélection se fait dehaut en bas 
    If pRowSel > pRow Then
        For i = pRowSel To pRow Step -1
            MGrid.RemoveItem i
            rs.Move (i - 1)
            rs.Delete
            rs.Update
            MGrid.Refresh
            rs.MoveFirst
            RowGridDel = True
        Next i
    End If
'si la sélection se fait de bas en haut 
    If pRowSel < pRow Then
        For i = pRow To pRowSel Step -1
            MGrid.RemoveItem i
            rs.Move (i - 1)
            rs.Delete
            rs.Update
            MGrid.Refresh
            rs.MoveFirst
            RowGridDel = True
        Next i
    End If
rs.Close

bonne chance