Sub pdf()
Dim Chemin As String, NomFic As String, extens As String, annee As String, nbcarExt As Byte
Chemin = ThisWorkbook.Path
'nomfeuille =
annee = Sheets("LISTE").Range("D2").Value
'extension du fichier :
extens = Split(ThisWorkbook.Name, ".")(1)
'nombre de caractères contenus dans l'extension du fichier :
nbcarExt = Len(extens)
'extraction du nom du fichier, sans l'extension, mais avec le point :
NomFic = ActiveSheet.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Chemin & "\" & "FIFI" & " " & annee & NomFic, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub