Sub Creerpdf()
'
' pdf Macro
'
Dim c As Range
Dim Derlig As Integer
Derlig = Range("A" & Rows.Count).End(xlUp).Row
On error resume next
For Each c In Worksheets("Elèves").Range("A1:A" & Derlig)
Worksheets("Bulletin Virgi").Cells(1, 9).Value = c.Value
Worksheets("Bulletin Virgi").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Document\Docs Excel\Bulletins de Virgi\PDF-Bull-Virgi\" & c.Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:="True", IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next
Sheets("Bulletin Virgi").Activate
Cells(1,9).Activate
Cells(1,9).Value = "e1"
On error GoTo 0
End Sub