Private Sub ComboBox1_Click()
m = Me.ComboBox1
With Sheets(m)
.Visible = xlSheetVisible
.Select
End With
End Sub
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
Private Sub ComboBox1_Click()
m = Me.ComboBox1
With Sheets(m)
.Visible = xlSheetVisible 'On rend la feuille visible
.Select ' Pas forcément utile
'On Travail sur la feuille
''''''''Ici le code
puis :
.Visible = xlSheetVeryHidden 'On masque la feuille
End With
End Sub