Imprimer une sélection d’onglets dans un fichier

Sheets(vararray).Select

Sub Imprime_Feuilles()


Dim vararray() As String
Dim csname As Integer, c As Integer
Dim countarr As Integer, r As Integer
Dim sname As Worksheet


    csname = Range("b2").Column
    c = Range("c2").Column
    Set sname = ActiveSheet
    r = Range("b2").Row
    countarr = 1
 

    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


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    sname.Activate


End Sub