Bonjour le forum,
Je reviens vers vous pour tenter de résoudre le "petit" problème comme indiqué dans le titre.
J'ai gratté un peu mais pas trouvé de question et réponse similaire.
Merci d'avance
Bien cordialement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub AfficherMasquerDistanceMoisPrecedent()
ActiveSheet.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
With ActiveSheet
    If Rows("5:5").Hidden = True Then
        Rows("5:5").Hidden = False
    Else: Rows("5:5").Hidden = True
    End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End Sub