Pb redaction macro

Bonjour,
le Forum

besoin d'aide SVP

explication j'ai une macro qui me permet de visulisé ma feuille et d'imprimer sans les cellules colorée, j'ai aussi sur cette meme feuille une boite de dialogue qui me permet d'imprimer les zone determiner en les cliquants mais la avec les cellules colorées.

Donc mon probleme est d'arriver à intégrer via ma boite de dialogue ma première macro

Ci dessous les deux macros:

1ere macro sans couleur :

Sub imprime()
Dim temp1(), temp2()
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex <> xlNone Then
n = n + 1
ReDim Preserve temp1(1 To n)
ReDim Preserve temp2(1 To n)
temp1(n) = c.Address
temp2(n) = c.Interior.ColorIndex
c.Interior.ColorIndex = xlNone
End If
Next c
ActiveSheet.PrintPreview ' ou ActiveSheet.PrintOut
For i = 1 To n
Range(temp1(i)).Interior.ColorIndex = temp2(i)
Next i
End Sub

2eme macro ( boite de dialogue avec choix des zones à visualiser ou à imprimer )

Private Sub CommandButton3_Click()
Dim Cpt, temp1(), temp2()
Cpt = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
'incrémente le compteur
Cpt = Cpt + 1
'définition de la zone d'impression
Dim ZoneImpr As String
ZoneImpr = IIf(Cpt = 1, tabAdresses(i), tabAdresses(i) & "," & ZoneImpr)
ActiveSheet.PageSetup.PrintArea = ZoneImpr
End If
Next i
Unload Me
If Cpt > 0 Then ActiveWindow.SelectedSheets.PrintPreview
Unload Me
End Sub

Donc pour résumer quelqu'un aurrait il ma solution pour intégrer la 1ere macro dans la 2eme

Vous remerciant par avance pour la solution tout en sachant que je bidouille mais surtout que je suis débutant en VBA

oasisjf