Macro impression

Option Explicit

Public Sub Impress()

Dim i
Dim Fich

For Each i In Worksheets("Données").Range("A3:A" & [A65000].End(xlUp).Row)
   If i = "" Then Exit For
   [K4] = i
   Fich = Split(ActiveWorkbook.Name, ".")
   Fich = ActiveWorkbook.Path & "\" & Fich(0) & "_" & i & "." & Fich(1)
   ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=Fich, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
Next i

End Sub