Columns("H:I").EntireColumn.Hidden = True
ChDir "P:\Filou\Factures-2017\Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\Filou\Factures-2017\Pdf\" & Range("C9") & ("-") & Format(Date, "dd-mmm-yyyy")
Columns("H:I").EntireColumn.Hidden = False
Range("C11").Select