Vba : Combobox.rowsource

Bonjour,

Dans mon fichier j'avais un userform qui me permettait de choisir une ligne grâce à une combobox. Le problème c'est que depuis que j'ai rajouté un filtre auparavant (ActiveSheet.Range("H1:H1500").AutoFilter Field:=1, Criteria1:=ComboBox1.Value), ma macro se bloque... Le problème vient de la combobox qui ne réussit pas à se remplir lorsque le tableau a été préalablement filtré. Je vous donne la procédure en question

Private Sub UserForm_Activate()

On Error GoTo gestionerreur1

Set Plage = Rows("2:2")
TextBox1 = Range("H" & Plage.Row).Value
TextBox2 = Range("F" & Plage.Row).Value
TextBox3 = Range("G" & Plage.Row).Value
TextBox4 = Range("C" & Plage.Row).Value
TextBox5 = Range("D" & Plage.Row).Value
TextBox6 = Range("I" & Plage.Row).Value
ComboBox1 = Range("A" & Plage.Row).Value

ComboBox1.RowSource = "Archive Factures!A2:A2000"

Exit Sub

gestionerreur1:
c = msgbox("Il n'y a plus de Cessions à traiter pour cette échéance.", vbInformation)
Unload UserForm4
Unload UserForm5
Selection.AutoFilter Field:=1
Feuil4.Visible = True
Feuil2.Visible = False
End Sub

Je remercie d'avance ceux qui m'aideront ou qui essayeront de le faire.