Erreur 1004 avec CurrentRegion.AdvancedFilter

Bonjour,

J'essaie de mettre en place dans une ListBox un tableau qui se remplit selon certains critères. Cependant, mon script bugue lorsque je remplis la deuxième ComboBox (Matériau Niveau 2). Le bug se trouverait ici :

        Range("A2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "L1:P2"), CopyToRange:=Range("L3:P3"), Unique:=False

Est-ce que quelqu'un aurait serait ce qui cause le bug ?

Je dépose en dessous:

- le Userform :

La feuille Excel :

- Le script :

Option Compare Text ' permet d'utiliser la recherche intuitive

'//////////////////////////////////////////// FONCTIONS ////////////////////////////////////////////////////////////////

'------------------------------------------- Filtrer_cb ---------------------------------------------------------------------
' filtre selon la donnee selectionne dans la combobox

Sub Filtrer_cb(cell As String, cb As ComboBox)
    ws_CANdb.Range(cell) = cb.Value 
        Range("A2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "L1:P2"), CopyToRange:=Range("L3:P3"), Unique:=False  
        UF_lb.RowSource = "CANbd_UF"
End Sub

'////////////////////////////////////////////// MAIN ////////////////////////////////////////////////////////////////////////////

Private Sub UF_cb_Mat1_Change()
ws_CANdb.Range("M2") = ""
UF_cb_Mat2.Value = ""
UF_cb_Diam.Value = ""
UF_tb_GECET.Value = ""
UF_tb_Intitulé.Value = ""
Filtrer_cb "L2", UF_cb_Mat1
UF_cb_Mat2.RowSource = "CANbd_UFcritère1"
End Sub

Private Sub UF_cb_Mat2_Change()
UF_tb_GECET.Value = ""
UF_tb_Intitulé.Value = ""
Filtrer_cb "M2", UF_cb_Mat2
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
UF_lb.RowSource = "CANbd_canalisation"
UF_lb.ColumnWidths = "200;40;40;40"
UF_cb_Mat1.RowSource = "CANbd_lstMaterauN1"
End Sub

Bonjour

Le zone d’atterrissage du filtre doit être soit une unique ligne de titres soit des colonnes complètes, pas 2 lignes qui préjugent du nombre de lignes à restituer

J'ai remplacé L1:P2 par L1:P1, mais ça ne règle rien à l'erreur. Le message reste : " impossible de lire la propriété CurrentRegion de la classe Range."

Bonjour

La CurrentRegion de A2 ne peut fonctionner que si il existe au moins une colonne vide avant J ce qu'on ne voit pas

Les images c'est bien, un fichier c'est mieux...

En mode debug que renvoie

Range("A2").CurrentRegion

Voilà un extrait du document excel