Sub Exporter_pdf_BG()
Dim LeNom, LeRepertoire, LaSelection As String
LeNom = Range("A3").Value
LeRepertoire = ThisWorkbook.Path
LaPlage = ("A2:G" & Range("A102").End(xlUp).Row)
ActiveSheet.Unprotect ("deblock")
Range("LaPlage").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRepertoire & LeNom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Protect Password:="deblock", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub