Dim chemin As String, nom As String, Tablo
For i = 1 To 3
chemin = "C:\Documents and Settings\moi\Bureau\Factures\2011\"
nom = Sheets(i).Name & " " & Application.Proper(mois) & " " & Right(annee, 2) & ".pdf"
Tablo = Array("Détail", "Détail 1", "Récap")
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Tablo(i - 1) & "\" & nom
Next