Vérification de code

Bonjour le forum

j'ai mis au point ce code qui fonctionne mais qui ne doit pas être informatiquement correct.

Private Sub Worksheet_Activate()
If Worksheets("PDG Admin").Visible = True Then
Me.Retour.Visible = True
Me.fermer.Visible = False
End If
If Worksheets("PDG Admin").Visible = False Then
Me.Retour.Visible = False
Me.fermer.Visible = True

End If
Range("a1:ao50").Select
    ActiveWindow.Zoom = True
    Range("a7").Select
   congés.Hide
  If Worksheets("PDG Admin").Visible = False Then
    MsgBox ("vous ne pourrez fermer ce classeur que par le bouton <<fermer>>")
    End If
End Sub

Un spécialiste peut il jeter son oeil pro afin de vérifier ce code

merci

Bonjour,

si ton code fonctionne c'est qu'il est "informatiquement" correct. Tu peux supprimer un test en utilisant un ELSE

Private Sub Worksheet_Activate()
If Worksheets("PDG Admin").Visible = True Then
Me.Retour.Visible = True
Me.fermer.Visible = False
else 'Worksheets("PDG Admin").visible=false
Me.Retour.Visible = False
Me.fermer.Visible = True

End If
Range("a1:ao50").Select
    ActiveWindow.Zoom = True
    Range("a7").Select
   congés.Hide
  If Worksheets("PDG Admin").Visible = False Then
    MsgBox ("vous ne pourrez fermer ce classeur que par le bouton <<fermer>>")
    End If
End Sub

merci beaucoup