Case à cocher + filtre

Merci pour ta réponse!
Bonne journée

Rebonjour Via, je ne peux pas télécharger ton fichier.Peut-tu me le retransmettre ? Merci

@pierre64Re,

J'arrive parfaitement à retélécharger le fichier, peut être est ce du au navigateur, apparemment certains ont du mal pour télécharger avec Firefox alors qu'il n'y a pas de souci avec Internet Explorer

Si malgré tout tu n'arrives pas à télécharger le fichier, voici la macro à mettre dans un module (ALT+F11 pour ouvrir l'éditeur, Insertion - Modules - Copier la macro dans la page - Modifier l'adresse de la cellule liée et de la plage du tableau à filtrer et de la colonne de filtrage - Fermer l'éditeur
Ensuite Il faut affecter la macro à la case à cocher (Clic droit sur la case - Affecter une macro)

Sub cocher()
' test cellule liée (modifier l'adresse pour l'adapter)
If Range("A4") <> VRAI Then
' filtre le tableau en plage A5:C20 (mofifier l'adresse) en fonction du critère 1 en colonne C (Field=3) A ADAPTER
ActiveSheet.Range("$A$5:$C$20").AutoFilter Field:=3, Criteria1:="1"
Else
'annulation du filtre (Adapter la plage)
ActiveSheet.Range("$A$5:$C$20").AutoFilter Field:=3
End If
End Sub

Cdlmnt
Via

Très bien !

Merci beaucoup, bonne journée !