Sub Bouton1_QuandClic()
If Range("AQ1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
Dim mot_de_passe As String
mot_de_passe = InputBox("Donnez le mot de passe")
If mot_de_passe = "toto" Then
Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = False ' je les montre
Else: Exit Sub
End If
'Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
'Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = False ' je les montre
Else
Range("AQ1, AW1, AY1").EntireColumn.Hidden = True ' je les cache
Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = True
End If
End Sub