Impression textbox

Sub DefZoneImpression()
Dim DernLigneColA As Integer, DernColDestination As Byte
DernColDestination = [COLOR="Red"]6[/COLOR] '4 'A modifier selon le nombre de colonnes
DernLigneColA = Range("[COLOR="red"]F[/COLOR]65536").End(xlUp).Row 'N° ligne de la dernière cellule col A remplie
With Sheets("Data") 'Nom de La feuille
ActiveSheet.PageSetup.PrintArea = "A1:[COLOR="red"]F[/COLOR]" & CStr(DernLigneColA) 'Imprime que la Zone Sélectionnée
End With
Worksheets("Data").PrintPreview 'Apperçu avant Impression
MsgBox "Lancer l'impression en Cliquant sur OK"
'Worksheets("Data").PrintPreview
End Sub

Sub DefZoneImpression()
For i = 1 To ActiveSheet.UsedRange.Columns.Count Step 2
    Set plage = Range(Cells(1, i), Cells(65000, i + 1).End(xlUp))
        plage.PrintPreview
        If MsgBox("Impression ?", vbYesNo) = vbYes Then plage.PrintOut
Next
End Sub