Enregistrement onglet en PDF

Bonjour,

Voici mon souci. J'ai une macro qui m'enregistre à partir de l'onglet 3 tous les onglets impair sauf le dernier:
For i = 3 To Sheets.Count - 1 Step 2

Il m'enregistre le bon nombre de pdf au bon endroit (10 pdf), mais 10 fois l'onglet 1, alors que mon compteur "i" commence à 3

Pouvez-vous m'aider?

Voici le code:

Sub ENREGISTREMENT_PDF()

Dim i As Integer
Dim Nom As String
Dim Chemin As String

Application.ScreenUpdating = False
On Error Resume Next

For i = 3 To Sheets.Count - 1 Step 2

Nom = Sheets("Page de garde").Range("Z" & i).Value
Chemin = Sheets("Page de garde").Range("AB1").Value

Sheets(i).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & Nom & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Next i

Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les fichiers ont été sauvegardé dans " & Chemin & " en PDF ")

End Sub