Oui il y a cette macro qui fait très bien l'affaire ! Je l'ai modifié avec la bonne cellule et la bonne page à masquer :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Sheets("Feuil1").Range("A2")) Is Nothing Then Exit Sub
Sheets("Retraites 2019").Visible = False
End Sub
Ou sinon, si tu veux choisir le nom de la feuille à masquer, tu écris en A2 le nom de la feuille concerné :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Sheets("Feuil1").Range("A2")) Is Nothing Then Exit Sub
Sheets(Feuil1.range("A2")).Visible = False
End Sub
Je te propose même une autre solution dans les fichiers joints :