[RÉSOLU) Macro qui fait bien le boulot mais pas tout à fait

For Each WS In Sheets
If WS.Name <> "MENU" Then
ect...

Etc...
Procedure...
End If ' fin de condition
Next Ws 'autre feuille
End Sub

Sub Supprime_C_Shapes()
Dim nombre As Integer
Dim Ws As Worksheet
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
Worksheets(I).Unprotect Password:="blabla"
Next I
   Application.ScreenUpdating = False
  AfficherOnglets

Dim Forme As Object
  For Each Ws In Sheets
  If Ws.Name <> "MENU" Then
    For Each Forme In Ws.Shapes
      With Forme
        Select Case .Type
          Case 12
            'ici permet de ne pas supprimer
            'les boutons de la BO Formulaire
          Case Else
            'supprime le reste
            .Delete
        End Select
      End With
    Next Forme
  End If
  Next Ws
End Sub

For I = 3 To nombre ' Si 1= Menu et 2=Janvier
Worksheets(I).Unprotect Password:="blabla"
For Each Forme In sheets(i).Shapes
      With Forme
        Select Case .Type
          Case 12
etc ....
Next Forme
Next I

Sub eff()
nombre = ActiveWorkbook.Sheets.Count
For i = 3 To nombre

For Each forme In Sheets(i).Shapes
forme.Delete
Next forme
Next i
End Sub

Sub a()
' macro à utiliser avec modération
Dim ws As Worksheet
Sheets("Menu").Visible = False
Sheets("Janvier 2018").Visible = False
For Each ws In Worksheets
    If ws.Visible Then
    ws.DrawingObjects.Delete ' supprime tout type d'objet
    End If
Next ws
Sheets("Menu").Visible = True
Sheets("Janvier 2018").Visible = True
End Sub