'----- remplissage ListView------------------------
With ListView1
'Définit le nombre de colonnes et Entêtes
.ColumnHeaders.Add , , "N° jetons et Liste des membres", 125
.CheckBoxes = True
For Each cel In Sheets("Liste").Range("J3:J" & Sheets("Liste").[j65000].End(xlUp).Row)
If cel <> "" Then .ListItems.Add = cel
Next
.View = lvwReport 'Spécifie l'affichage en mode "Détails"
End With
CheckBoxes_deselectionner