Sub Tri()
Dim z As String
Range("A1").Select
z = Range("A1").Value 'valeur de A1 non numérique avec 3 possibilités : M,F,X
Range("feuil2!C5:I500").AutoFilter
Range("feuil2!F5").AutoFilter Field:=4, Criteria1:=z
For n = 5 To 20
If Rows(n).Hidden = False Then ad = ad & Range("C" & n & ":I" & n).Address(0, 0) & ","
Next n
ad = Left(ad, Len(ad) - 1)
Range(ad).Select
Range("A1").Select
End Sub