Sub es()
Dim t(), t1(), t2(), x As Long, i As Long, y As Byte, a As Byte, z As Long
t = Range("a2:v" & Cells(Rows.Count, 5).End(xlUp).Row)
ReDim t1(1 To UBound(t), 1 To 22)
ReDim t2(1 To UBound(t), 1 To 22)
For i = 1 To UBound(t)
If t(i, 5) = "F" Then
x = x + 1
For y = 1 To 22: t1(x, y) = t(i, y): Next y
ElseIf (t(i, 5) = "M") Then
z = z + 1
For a = 1 To 22: t2(z, a) = t(i, a): Next a
End If
Next i
Sheets("Femmes").[A2].Resize(x, 22) = t1
Sheets("Hommes").[A2].Resize(z, 22) = t2
End Sub