Alterner les lignes selon le sexe (ds excel)

Sub coupe()   

Application.ScreenUpdating = false

b = "M"   

c = 3   

d = 3   

For a = 1 To 100000   

If Range("a" & a).Value <> "" Then   
Max = a   
Else   
Exit For   
End If   

Next   

For a = 2 To Max   

    Rows("2:2").Select   
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   
       
    If b = "F" Then   
    b = "M"   
    GoTo b:   
    End If   
       
    If b = "M" Then b = "F"   
           
b:   
           
        Do While (Range("a" & c).Value <> "")   
           
        If c > Max Then Exit Do   
           
            If Range("d" & c).Value = b Then   
               
                Rows(c & ":" & c).Cut   
                   
                Rows("2:2").Select   
                   
                ActiveSheet.Paste   
                   
                Rows(c & ":" & c).Select   
                   
                Selection.Delete Shift:=xlUp   
                   
                d = d + 1   
                   
                c = d   
                   
                GoTo a:   
               
            End If   
               
            c = c + 1   
           
        Loop   

a:   
       
Next   

a = 1   

Do While (Range("a2").Value = "")   

    Rows("2:2").Select   
       
    Selection.Delete Shift:=xlUp   
       
Loop   
Application.ScreenUpdating = True
End Sub