Appliquer un gabarit pour une impression en pdf

Sub ImprimerPDF()
    Dim J As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    'MkDir "C:\Impression FL\"
    MkDir "C:\Documents and Settings\Moi\Bureau\Impression FL"
 
    'A ne mettre que si l'on veut créer un répertoire
    On Error GoTo 0
    For i = 1 To Sheets.Count
        If Sheets(i).Visible = -1 Then
            J = J + 1
            Sheets(i).Select
            Range("a1:g30").Select
            Selection.Copy
            Sheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Paste
            Cells.Select
            Sheets(Worksheets.Count).Select
            Application.CutCopyMode = False
 
            'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Impression FL\montest" & i & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\ " & Application.Proper(Sheets(i).[E2].Value) & "  " & Sheets(i).Name & " Edition du " & Application.WorksheetFunction.Proper(Format(Date, "dd mmmm yy")) & " .pdf"
 
            Application.DisplayAlerts = False
            ActiveWindow.SelectedSheets.Delete
            Application.DisplayAlerts = True
        End If
    Next i
    Sheets(1).Select
    Application.ScreenUpdating = True
    Select Case MsgBox("Votre(vos) document(s) PDF vient(viennent) d'être créé(s) et est(sont) disponnible(s) dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF  ", vbInformation, "Information Importante !!")
    End Select
End Sub