Sub PDF()
For i = 4 To Worksheets.Count
If Worksheets(i).Name <> "Suivi" And Worksheets(i).Name <> "Menu" And Worksheets(i).Name <> "Fiche MODELE" Then
Worksheets(i).PageSetup.PrintArea = "$A$1:$H$21"
Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\za\Documents\" & Worksheets(i).Range("F3").Value, quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Next i
End Sub