bonjour
le code suivant genere une erreur dans elseif:
auriez vous une idée merci
If InputBox("Mot de passe", "Sécurite_Environnement") = "Safety2010" Then
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Feuil3").Visible = True
Sheets("Feuil6").Visible = True
Sheets("Feuil7").Visible = True
Sheets("Visite reçu Aout").Visible = True
Sheets("Visites reçu Juin").Visible = True
Sheets("Feuil5").Select
ElseIf InputBox("", "") <> "Safety2010" Then
MsgBox("Veuillez le renouvelé", vbOKOnly, "Mot de passe incorrecte") = vbOK
Else
Sheets("Feuil5").Select
End If