Enregistrer sous en XLSX

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