If Checkbox.Value = True Then
[I]'Feuille ou sont situées les données[/I]
Worksheets("Origine").Activate
[I]'R est la colonne ou se situe les données à filtrer forcément VRAI ou FAUX remplissage par checkbox[/I]
Range("R10").Select
[I]'AutoFilter Field = 18 (R = 18eme colonne), critère saisie à la main Vrai car si la check box est coché je ne veux que les données ou la colonne apparaît en vrai.[/I]
Selection.AutoFilter Field:=18, Criteria1:="VRAI"
Else
[I]'Aussi non je récupère toutes les données[/I]
Worksheets("Origine").Activate
Range("R10").Select
Selection.AutoFilter Field:=18
End If