Private Sub UserForm_Initialize()
' LISTE DES COMMENTAIRES
' ----- Onglet 1 -----
Dim i As Integer
Sheets("Commentaires").Activate ' Active la feuille où sont listé tout les commentaires
UserForm1.ListCommentaires1.ColumnCount = 1
j = 0
With Me.ListCommentaires1
.MultiSelect = fmMultiSelectMulti ' permet de sélectionner plusieurs chose dans la listbox
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' compte le nombre de ligne non vide
If Cells(i, 1).Value Like "*0-10M*" Then 'Filtre les commentaire appartenant uniquement au groupe 0-10M
.AddItem
.List(j, 0) = Cells(i, 2) ' Le commentaire à afficher
j = j + 1
End If
Next i
End With
End Sub