Sub ff()
Dim Chemin As String
Chemin = "c:\temp\" & "Bidon" & ".pdf"
'et a la fin
Dim Ws As Worksheet
'début de ma macro qui cache les onglets à ne pas imprimer et qui fonctionne bien ^^
'sélection des onglets visibles
For Each Ws In Worksheets
If Ws.Visible = xlSheetVisible Then Ws.Select Replace:=False
Next Ws
'les onglets que je veux imprimer sont sélectionnés
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub