Qui pourrais me corige svp

***** Bonjour.

Sub imprime()
'
' imprime Macro
'

'
    Range("A2:G44").Select
    Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Range("I6").Select
' factuurNr Macro
' Factuur Nr automatis in vulen

    Sheets("Fact").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A3").Select
    Sheets("Factuur").Select
    Range("$B$1:$e$1").Select
    Selection.Copy
    Sheets("Fact").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Factuur").Select
    Range("i6").Select
'Update 20141111
ActiveWorkbook.SaveAs ("C:\ E:\Documenten\Excel\Spekkilekkie\ Fatur " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub