Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target(1), [F3:F5]) Is Nothing Then Exit Sub
Protect "toto", UserInterfaceOnly:=True 'mot de passe à adapter
With Target(1)
Cells(2, Application.Match(.Offset(, -3), Rows(2), 0)).MergeArea.EntireColumn.Hidden = .Value = "masquer"
.Offset(, -3).Select
.Value = IIf(.Value = "masquer", "afficher", "masquer")
End With
End Sub