Sub PDF()
Columns("A:A").EntireColumn.Hidden = True ' Masquage des colonnes A C D E F'
Columns("C:F").EntireColumn.Hidden = True
' Lancement impression en PDF'
Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Microsoft Print to PDF sur Ne02:"",,TRUE,,FALSE)"
' Toutes les colonnes sont démasquées.'
Columns("A:H").EntireColumn.Hidden = False
End Sub