Bonjour,
Si j'ai compris, remplace ton code par celui-ci
Sub Cadre1_Cliquer()
Call MasquerFeuilles
Dim ws As Worksheet
a = Range("G5")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Inscriptions" Or ws.Name = "Mode d'emploi" Or ws.Name = "" & a & "" Then
ws.Visible = xlSheetVisible
End If
Next ws
Sheets("" & a & "").Activate
End Sub
a+