Private Sub Worksheet_Deactivate()
Dim t, v, i&, j&, nt&, nv&
t = Me.Range("a1").CurrentRegion: v = Me.Range("a1").CurrentRegion
nt = 1: nv = 1
For i = 2 To UBound(t)
If t(i, 2) = "M" Then ' 2 = n° de colonne du sexe
nt = nt + 1: For j = 1 To UBound(t, 2): t(nt, j) = t(i, j): Next
Else
nv = nv + 1: For j = 1 To UBound(t, 2): v(nv, j) = t(i, j): Next
End If
Next i
Application.ScreenUpdating = False
Sheets("Lstmales").Columns(1).Resize(, UBound(t, 2)).Clear
Sheets("Lstmales").Range("a1").Resize(nt, UBound(t, 2)) = t
Sheets("Lstfemelles").Columns(1).Resize(, UBound(t, 2)).Clear
Sheets("Lstfemelles").Range("a1").Resize(nv, UBound(t, 2)) = v
End Sub