Problème de "Variable non définie"

Bonjour le forum

je suis en train de créer mon fichier Formation mais je voudrais avertir les utilisateur d'activer les macro donc je cache toutes les feuilles sauf la feuilles "bonjour".

une fois les macros activer je rend toutes les feuilles visible SAUF (celle déjà rempli en A5 ) (Recap) (Liste) et (Bonjour).

le problème est que j'ai une erreur de variable dans ThisWorkbook .

Merci de votre aide

Bonsoir Reinruof, bonsoir le forum,

Rien de plus ch***t que les fichiers qui se ferment sans qu'on ait pu sauver !...

Essaie comme ça :

Private Sub Workbook_Open()
Dim i As Byte

Sheets("Bonjour").Select
For i = 1 To Sheets.Count
    Select Case Sheets(i).Name
        Case "Base", "Liste", "Recap"
            Sheets(i).Visible = False
        Case "Bonjour"
        Case Else
            Sheets(i).Visible = Sheets(i).Range("A5").Value = ""
    End Select
Next i
ThisWorkbook.Sheets("Bonjour").Visible = xlSheetVeryHidden
UserForm1.Show
End Sub

bonjour ThauThème

Et merci problème resolu