Problème avec autofilter

[Lex O'Mil]

Bonjour à tous!!

Je suis nouveau sur le forum et m'en remet à votre expertise pour me donner un coup de pouce.

Présentation du problème.

J'ai un classeur avec x onglets

Le 1er onglet présente 2 combobox
le 1er combobox1 puise ses données dans le nom des x onglets
le 2 ème combobox2 puise ses données dans la première colonne d'un des x onglet, selon le choix du 1er combobox.
Ce 1er onglet génère des graphiques et des tableaux.
J'aimerai, en fait, après sélection du premier combo, puis du second qu'une procédure Vba me permette de :

1) filtrer un des x onglet(selon combobox1), sur les données de la première colonne.
2) recopier la ligne qui résulte du filtre(déterminé par combobox2) sur une ligne du premier onglet

mon code :

Private Sub ComboBox2_Click()

Rome = ComboBox2.Value
OngletBassin = ComboBox1.Value

Sheets(OngletBassin).Select
ActiveSheet.Range("A1:AE3").Select
If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
ActiveSheet.Range("AE3").Activate
Selection.AutoFilter Field:=1, Criteria1:=Rome
Selection.Copy
' le premier onglet n'a pas de nom juste un "espace"
Sheets(" ").Select
' ligne ou recopier la selection
Range("C44:AG45").Select
ActiveSheet.Paste
Sheets(OngletBassin).Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets(" ").Select
Worksheets(OngletBassin).Select

End Sub

NB j'ai essayé d'adapté une macro et cela me renvoi le message d'erreur d'exécution 1004 la méthode autofilter de la classe range à échoué.


J'ai beaucoup de mal cela fait 2 jours que je cherche partout des infos.

Please help!!!!!!!!!

d'avance merci!!