Private Sub CommandButton5_Click() 'listview tout
Dim derl As Long
derl = Cells(65535, 1).End(xlUp).Row
Me.ComboBox1 = ""
Me.ComboBox3 = ""
'tri ascendant colonne A
Range("A2:R" & derl).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With ListView1
.Sorted = False
.ListItems.Clear
For L = 3 To derl
.ListItems.Add , "A" & L, Cells(L, 1)
Compteur = .ListItems.Count
For C = 2 To 18
Cle = Chr(64 + C)
.ListItems(Compteur).ListSubItems.Add , Cle & L, Cells(L, C).Text
Next C
Next L
.ListItems(1).Selected = False
Set .SelectedItem = Nothing
End With
End Sub