Dim Sh As Worksheet
For Each Sh In Worksheets
If Left(UCase(Sh.Name), 2) = "ms" Then ComboBox1.AddItem Sh.Name
Next Sh
Option Explicit
' variable data1 doit etre une variable publique
Private Sub CommandButton1_Click()
data1 = ComboBox1.Value
Unload Me
End Sub
Private Sub CommandButton2_Click()
data1 = "annule"
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
ComboBox1.Clear
list_onglet.Caption = "Onglet du classeur : " & ActiveWorkbook.Name
For Each Sh In Worksheets
If InStr(1, UCase(Sh.Name), UCase(data1)) > 0 Then ComboBox1.AddItem Sh.Name
Next Sh
End Sub