bonjour
essayer ca
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If (Sh.Name = "feuil 1") And Not Worksheets("feuil 1").Range("a1").Value = 1 Then
Sh.Visible = False
End If
End Sub
Sub showw1()
Worksheets("feuil 1").Range("a1").Value = 1
Worksheets("feuil 1").Visible = True
Worksheets("feuil 1").Activate
End Sub
Sub showw2()
Worksheets("feuil 1").Range("a1").Value = 2
Worksheets("feuil 1").Visible = False
Worksheets("feuil 2").Activate
End Sub