Bonjour à tous !

Après de nombreuses recherches, je n'ai pas trouvé solution à mon problème.

Je souhaite effectuer un filtrage automatique sur une feuille qui puisse ensuite se répeter sur une autre feuille.

J'ai pu trouver ce code sur un post qui me semble convenir à mon problème mais celui ci ne fonctionne pas. En effet, les lignes de code se compilent mais le filtrage obtenu sur ma seconde feuille est le filtrage total des lignes. Il ne reste que la ligne d'en tete affichée. Le filtre se produit bien sur la colonne de critères.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
crit = WshF.Range("B1:C437").SpecialCells(xlCellTypeVisible).Cells(2, 200).Value
With WshP
        'désactive le filtre éventuel précédent
        If .FilterMode = True Then .ShowAllData
        'active le filtre suivant le même critère
        .Range("A1:O" & .Range("O" & Rows.Count).End(xlUp).Row).AutoFilter Field:=12, Criteria1:=crit
End With
Je suppose que le problème vient de la partie

Code : Sélectionner tout - Visualiser dans une fenêtre à part
.SpecialCells(xlCellTypeVisible).Cells(2, 200).Value
mais je n'arrive pas à obtenir ce que je souhaite.

Si quelqu'un peut me guider

Merci d'avance !