Le filtre s'effectue apparemment sans soucis!
Cependant comment enlever ce filtre? J'ai ça pour effacer mes filtres:
Sub EffacerFiltre()
For Each ws In Sheets(Array("Téléchargements", "Prévisions", "Sommaire"))
On Error Resume Next
ws.TextBox1.Value = ""
ws.ShowAllData
ws.Activate
ws.Range("A16").Select
Next ws
End Sub
Cependant après utilisation de ton bouton mes lignes ne réapparaissent plus. Une idée?
Merci pour ta réponse