Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name Like "* ????" Then 'selon le format du Nom de la Feuille (Sh)s'il contient du Texte plus le format Année quatre Chiffres [I]Jan 2018 ou Janvier 2018[/I]
With Target 'avec la cellule concerné
If .Row = 5 And .Column >= 3 And .Column <= 33 Then 'si Ligne de la cellule est la 5 et la colonne de la cellule est comprise entre 3 et 33
If .Offset(-2, 0) <> "" Then 'si la cellule de la deuxième Ligne au dessus de la cellule Cible n'est pas vide
.Value = IIf(.Value = "N", "", "N") 'on modifie le contenu de la cellule
End If
Cancel = True
End If
End With
End If
End Sub