Private Sub CommandButton1_Click()
Sheets(Me.ComboBox1.Value).Visible = -1
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
With Sheets(ComboBox1.Value)
.Visible = -1
.Activate
End With
End Sub
Bonsoir JobBonjour chaelie2015, fanfan38, le forum,
Un petit complément s'impose :
A+VB:Private Sub CommandButton1_Click() On Error Resume Next With Sheets(ComboBox1.Value) .Visible = -1 .Activate End With End Sub