Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Feuil2.[A5:E29].ClearContents
lig = 5: col = 1
For onglet = 4 To Sheets.Count
If Application.CountIf(Sheets(onglet).[Q12:W50], ListBox1.List(ListBox1.ListIndex)) > 0 Then
Feuil2.Cells(lig, col) = Sheets(onglet).Name
col = col + 1
End If
If col = 6 Then col = 1: lig = lig + 1
Next
Feuil2.Select
Unload UserForm1
End Sub