Sub MasquerEtPdf()
' Figer écran
Application.ScreenUpdating = False
With Sheets(1)
' Masquer bouton et colonnes
.Shapes("Rectangle à coins arrondis 1").Visible = False
.Columns("A:A").EntireColumn.Hidden = True
.Columns("C:H").EntireColumn.Hidden = True
.Columns("J:J").EntireColumn.Hidden = True
' Lancer impression PDF
PDF
' Démasquer bouton et colonnes
.Columns("A:J").EntireColumn.Hidden = False
.Shapes("Rectangle à coins arrondis 1").Visible = True
End With
End Sub