Sub SauverEnPDF()
Dim vararray() As String
Dim csname As Integer
Dim c As Integer
Dim countarr As Integer
Dim r As Integer
Dim sname As Worksheet
Dim strFileName As String
csname = Range("K2").Column
c = Range("L2").Column
Set sname = ActiveSheet
r = Range("L2").Row
countarr = 0
While sname.Cells(r, csname) <> ""
If sname.Cells(r, c) = 1 Then
ReDim Preserve vararray(countarr)
vararray(countarr) = sname.Cells(r, csname).Value
countarr = countarr + 1
End If
r = r + 1
Wend
Sheets(vararray).Select
strFileName = Application.GetSaveAsFilename(Filefilter:="PDF Files (*.pdf), *.pdf", Title:="Entrez le nom du fichier")
If strFileName <> "False" And strFileName <> "Faux" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
sname.Select
Set sname = Nothing
End Sub