Macro excel qui ne fonctionne plus

Bonsoir à tous.

je ne comprends pas, j'utilisais jusqu'à présent une macro qui fonctionnait plutot bien et qui buggue maintenant.

Je vous explique j'ai des tableaux avec une centaine d'onglet. j'avais demander ici une macro magique pour extraire chaque onglet en un fichier séparé pdf.

Jusqu'à présent je fonctionnais ainsi et ça marchait plutot bien:

"Insertion, Module dans vba:

Option Explicit
Dim nom, chemin  As String
Dim sh As Worksheet
 Sub Save_onglet()
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each sh In ThisWorkbook.Worksheets
nom = sh.Name
  Sheets(nom).Select
    Save_pdf
 Next
End Sub
Private Sub Save_pdf()
chemin = ActiveWorkbook.Path & "\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Enregistrer" 'on peut supprimer
End Sub

puis j'y associait un bouton et ça fonctionnait. Maintenant j'ai un message d'erreur qui me dit "erreur "429" un composant active X ne peut pas créer d'objet...

C'est un peu de l'hebreu pour moi....

J'ai peur d'avoir trop copié cette macro en faisant des essais, il me faudrait peut être nettoyer tout ça, mais je ne sais pas comment faire, et j'ai peur que ça me détraque les autres tableaux où ça fontcionne par contre.

Help!!!

Merci par avance.