Bonjour Thuan,
Voici un petit script qui pourra je l'espère te dépanner
Sub RENATO()
Range("A1").Select
Selection.Copy
Range("J1").Select
ActiveSheet.Paste
Range("B1:C1").Select
Application.CutCopyMode = False
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("H2").Select
AGE = InputBox("Veillez renseigner ici l'âge à filtrer", , "exemple saisie : 22")
ActiveCell.FormulaR1C1 = AGE
Range("I2").Select
SEXE = InputBox("Veillez renseigner ici le SEXE à filtrer", , "exemple saisie : F")
ActiveCell.FormulaR1C1 = SEXE
Range("A1:C500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:I2"), CopyToRange:=Range("J1"), Unique:=True
Range("F18").Select
ActiveCell.FormulaR1C1 = "=COUNTA(C[4])-1"
Range("F18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("H:J").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("F18").Select
End Sub
A bientôt
Rénato