N'imprime pas en pdf dans trois fichiers différents

[libellule85]

Bonsoir le forum,

Je n'arrive pas à imprimer en pdf dans trois fichiers différents (la macro s'exécute normalement sans erreur ! mais rien dans les fichiers en questions), j'ai mis le code suivant :

For j = 1 To 3
     chemin = "C:\Documents and Settings\Moi\Bureau\"
     nom = Sheets(j).Name.[a1].Value & " .pdf"
     Tablo = Array("Chèques", "LCR", "Virements")
     Sheets(j).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Tablo(j - 1) & "\" & nom
 Next

J'ai déclaré j en Byte

Merci d'avance pour votre aide