Microsoft 365 fonction SI ALORS avec des feuilles active ou non

Med_007 à dit:

Bonjour
Je souhaite masquer des feuilles si elle sont visibles en appuyant sur un bouton (macro).
Mais si elle ne sont pas visibles , une message box apparait .
Voici la macro que j'ai faite mais je n'arrive pas a la débugger :
Une erreur est à la ligne If ...

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'

'
If Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Visible = True Then

Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Select
Sheets("U15H séries J8").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Choix des tableaux").Select
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
MsgBox "Les onglets n'existent pas"
End If
End Sub

merci de votre aide.
Je débute en VBA

Cliquez pour agrandir...

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'
    Sheets("U15H séries J8").Visible = True
    Sheets("U15H Joker 8").Visible = False
    Sheets("U15H résultats J8").Visible = False
    With Sheets("Choix des tableaux").Range("B4").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("U15H séries J8").Activate
End Sub