Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
If Sheets(i).Name Like "art*" Then ComboBox1.AddItem Sheets(i).Name
If Sheets(i).Name Like "sousart*" Then ComboBox2.AddItem Sheets(i).Name
Next i
MsgBox ComboBox1.ListCount & " onglets art et " & ComboBox2.ListCount & " onglets sousart."
End Sub