Gestion des impressions

Bonjour à tous,

J'ai une macro qui me permet d'imprimer ou pas les feuilles de mon classeur en fonction d'une condition "0" ou "1".

Je souhaiterai restreindre les impressions des feuilles à la page 1 ou 2 selon le cas, or en ajoutant cette restriction dans la macro il ne s'imprime plus que les pages de la première feuille sans tenir compte des autres feuilles. Et là je sèche !?

Voici mon code :

Sub Imrpime_feuilles()
        Dim vararray() As String
        csname = Range("B5").Column
        c = Range("C5").Column
        Set sname = ActiveSheet
        r = Range("C5").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
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        sname.Activate
End Sub

Pour restreindre les pages je modifie cela :

ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True

Merci pour votre aide - exemple dans le fichier joint

Val