If UserForm53.le_choix = 3 Then
Application.DisplayAlerts = False
' --------- trier par COTISATION colonne E ----------
With Sheets("Effectif")
Columns("E:E").NumberFormat = "General" 'transforme la colonne en NOMBRE
.[A:O].Sort .[E1], xlAscending, Header:=xlYes
End With
Application.DisplayAlerts = True
'---------------------------- affiche la liste triée
Set Ws = Sheets("Effectif")
With Sheets("Effectif")
Set Rng = .Range("A2:O" & Ws.[B60000].End(xlUp).Row)
End With
ListBox1.ColumnCount = 13
ListBox1.ColumnWidths = "25;120;120;65;40;50;300;40;130;180;65;15;200;"
ListBox1.RowSource = Rng.Address(external:=True)
TextBox1 = Rng.Rows.Count
End If