impression liste fonction valeur textbox ou combobox

Private Sub ComboBox1_Change()
Dim col As Byte
Sheets("Liste").Range("A2:A1000").Clear [COLOR="Red"]'liste supposée de 1000 lignes maximum[/COLOR]
With Sheets("Autorisations")
For col = 2 To 200 Step 2
If Application.CountA(.Range(.Cells(8, col), .Cells(1000, col))) = 0 Then Exit For
.Cells(7, col).AutoFilter
.Cells(7, col).AutoFilter Field:=col, Criteria1:=ComboBox1
.Range("A8:A1000").Copy
With Sheets("Liste").Range("A1000").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.Borders(xlEdgeTop).LineStyle = xlDouble
End With
Next
.AutoFilterMode = False
End With
Application.CutCopyMode = False
With Sheets("Liste")
.Range("A1") = ComboBox1
ListBox1.RowSource = "Liste!A2:A" & .Range("A1000").End(xlUp).Row
End With
End Sub

Private Sub CommandButton1_Click()
Dim Cb As String
Cb = UserForm1.ComboBox1.Value
Application.ScreenUpdating = False
Unload UserForm6
Unload UserForm1
With Sheets("Liste")
.Visible = True
.PageSetup.PrintArea = "$A:$A"
.PrintPreview
End With
Sheets("Autorisations").Activate
Load UserForm1
With UserForm1
.ComboBox1.Value = Cb
.Show
End With
Application.ScreenUpdating = True
End Sub