Appeler une feuille avec une combobox

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
        If Not ws.Name = 'Recherche' Then 'si tu veux la feuille recherche dans la combobox
        'supprime cette condition
                ComboBox1.AddItem ws.Name
        End If
Next ws
End Sub
Private Sub ComboBox1_Click()
With Sheets(ComboBox1.Text)
        .Select
        .Range('a1').Select
End With
End Sub

Cliquez pour agrandir...