Problème pour éditer une facture en pdf

Sub ImprimerPDFImage()
Dim I As Long, c As Range
 Application.ScreenUpdating = False
 For I = (Range("B19").Value <> "Sous réserve de disponibilité chez l'Editeur") + 21 To 39
     Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
     If c Is Nothing Then Rows(I).Hidden = True
 Next I
 Range("a10").Select
 Application.ScreenUpdating = True
ActiveSheet.Shapes("Image 3").Visible = True
ActiveSheet.Shapes("Image 2").Visible = True
     Sheets(1).Select
     ActiveSheet.PrintPreview
      Select Case MsgBox("Voulez-vous imprimer ce document ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'Impression de Document")
      Case vbYes
      On Error GoTo pass
     'MkDir "C:\Documents and Settings\Moi\Bureau\Impression Excel en PDF"
pass:
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\2011\" & Application.Proper(Sheets(1).Name) & " n° " & Application.Proper(Sheets(1).[C16].Value) & " Ed. du " & Format(Now, "dd.mm.yy à hh \h nn \m\n ss \s ") & ".pdf"
              Select Case MsgBox("Le Document  "" " & Sheets(1).[e2].Value & " " & Application.Proper(Sheets(1).Name) & ".pdf "" est sauvegardé dans C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF", vbInformation, "Information Importante à savoir !!")
 End Select
      Case vbNo
      End Select
 ActiveSheet.Shapes("Image 3").Visible = False
ActiveSheet.Shapes("Image 2").Visible = False
Application.ScreenUpdating = False
 Range("a10").Select
 For I = (Range("B19").Value <> "Sous réserve de disponibilité chez l'Editeur") + 21 To 39
 'For I = 20 To 39
     Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
     If c Is Nothing Then Rows(I).Hidden = False
 Next I
 Application.ScreenUpdating = True
 Range("a10").Select

 End Sub

Sub test()
Dim nomfichier As String
nomfichier = Format(Now, "dd.mm.yy à hh \h nn \m\n ss \s ") & ".pdf"
MsgBox nomfichier
End Sub