Imprimer plusieurs zones d'une feuille via spin button

'###########################
'### Constante à adapter ###
Const PlageArea As String = "D1:AE46" 'à adapter (1ère plage du PrintArea)
'###########################

Private Sub SB_cycle_Change()
TB_cycle.Value = SB_cycle.Value
End Sub

Private Sub UserForm_Initialize()
TB_cycle.Enabled = False 'clic sur le champ impossible
TB_cycle.Value = 1
SB_cycle.Value = 1
SB_cycle.Min = 1
SB_cycle.Max = 13
End Sub

Private Sub Impression_Click()
Dim R As Range
'--- On décale les colonnes de la plage en fonction de SB_cycle ---
'--- A NOTER : plus besoin de Nom dans l'espace de Noms         ---
Set R = ActiveSheet.Range(PlageArea)
Set R = R.Offset(0, R.Columns.Count * (SB_cycle - 1))
'---
Unload Me
'---
With ActiveSheet
  '--- Réglage de la page à imprimer ---
  With .PageSetup
    .PrintArea = R.Address          'L'adresse de la bonne plage est transmise
    .PrintTitleColumns = "$A1:$C46" 'L'addresse des titres/colonnes à répéter
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape
    .Zoom = 66
'    .PrintHeadings = False
  End With
  '---
  .PrintPreview
  .PageSetup.PrintArea = False
End With
End Sub