Bonjour,

Cela fait deux heures que je cherche à exécuter des filtres à des lignes différentes en fonction d'une condition. J'en appel donc à votre aide.
Plus précisément je souhaiterais mettre un filtre sur la ligne n si je rencontre tel caractère.
Voici le code que j'ai fait.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub filtre2()
Dim i As Integer
    For Each filtre In Range("A1:A1000")
        If filtre.Value = "HD" Then
        Range("A" & i).AutoFilter
        i = i + 1
        End If
     Next
 
End Sub
Bonne journée