Bonsoir a tous,
Depuis l'ajout de Option explicit la macro bug sinon elle fonctionne bien.
Variable?
Merci de vous éventuels retours

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option explicit
Sub PageMenu()
'
' PageMenu Macro
' Macro enregistrée par ***
Dim nombre As Integer
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 For I = 1 To nombre
 Worksheets(I).Unprotect Password:="blabla"
 Next I
   Application.ScreenUpdating = False
  AfficherOnglets
   Sheets("Janvier 2014").Select
  Range("A1").Select
   End Sub