Excel Macro - Enregistrer feuilles Excel en fichiers PDF

Bonjour à tous,

J'ai un fichier Excel contenant plusieurs onglets (66 au total). Je souhaiterais enregistrer chacun de ces onglets en fichier PDF 8un fichier PDF par feuille).

Je ne suis pas une experte en macro mais j'ai celle ci-dessous qui fonctionne parfaitement pour un autre de mes fichiers:

For i = 1 To Sheets.Count
Sheets(i).Select
ChDir "C:\mesdocuments"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\mesdocuments\feuille_" & i & ".pdf"
Next i


Cependant, elle ne fonctionne pas dans le fichier que je souhaite convertir maintenant.
Lorsque je debug, l'erruer se situe sur la ligne:

Sheets(i).Select

Je ne comprend pas d'où vient l'erreur....
Quelqu'un pourrait-il m'éclairer sur l'erreur?

Merci d'avance :-) :-)

Cordialement,