Tri dans un userform

'---------------------------------------------------------------------------------------
' Procedure : CommandButton5_Click
' DateTime  : 19/06/2007 16:42
' Author    : jp14
' Pour      : http://www.excel-downloads
' Utilisation   :recopie une seule ligne
'---------------------------------------------------------------------------------------
'
Private Sub CommandButton5_Click()

'Sheets(nomf2).Select
'    Cells.Select
'    Selection.ClearContents
'    ligne1 = 0
'Sheets(nomf1).Select
Dim compteur As Integer
compteur = 0
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
        'ligne2 = Mid(ListView1.ListItems(i).Key, 2, 50)
        compteur = compteur + 1
        
    End If
Next i

If compteur = 0 Then
    MsgBox ("Vous devez sélectionner une ligne")
    Exit Sub
End If
If compteur > 1 Then
    MsgBox ("Vous devez sélectionner une ligne et une seule")
    Exit Sub
End If
.................................................

'---------------------------------------------------------------------------------------
' Procedure : ListView1_ItemCheck
' DateTime  : 27/02/2007 17:52
' Utilisation   :changer la couleur quand une case est cochée
' une seule case doit être cochée
'---------------------------------------------------------------------------------------
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim compteur As Integer
compteur = 0
For I = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(I).Checked = True Then
        'ligne2 = Mid(ListView1.ListItems(i).Key, 2, 50)
        compteur = compteur + 1
        
    End If
Next I
If compteur > 1 Then
    MsgBox ("Vous devez décocher une ligne avant d'en cocher une nouvelle")
    Item.Checked = False
    Exit Sub
End If
...................................................