Déplacer des lignes en VBA

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  proposé (clic droit) dans le message de réponse 

option Explicit
Dim T_in
'-------------------------
Sub dispatcher()
Dim Derlig As Byte, valeur As String, Cptr As Byte, Nbre As Byte
    Application.ScreenUpdating = False
    With Sheets(1)
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_in = .Range("A1:I" & Derlig)
         For Cptr = 1 To 4
            valeur = Choose(Cptr, "valeur1", "valeur2", "valeur3", "valeur4")
            Nbre = Application.CountIf(.Columns("C"), valeur)
            selectionner valeur, Nbre, Cptr
        Next
        .Range("A1:I" & Derlig).Clear
    End With
End Sub
'-----------------------------------------------
Sub selectionner(choix, Nbrv, onglet)
Dim T_out, Cptv As Byte, Col As Byte, Lig As Byte
    ReDim T_out(1 To Nbrv, 1 To 9)
    For Cptv = 1 To UBound(T_in)
        If T_in(Cptv, 3) = choix Then
                Lig = Lig + 1
                For Col = 1 To 9
                    T_out(Lig, Col) = T_in(Cptv, Col)
                Next
        End If
    Next
        With Sheets(onglet + 1)
            .Range("A1").Resize(Nbrv, 9) = T_out
        End With
End Sub

Sub Deplace()
Sheets("Palmares").Select
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
   For L = 2 To Nlig
      Onglet = Range("C" & L).Value
      Rows(L).Cut
      Lig = Sheets(Onglet).Cells(Rows.Count, 1).End(xlUp).Row + 1
      Sheets(Onglet).Rows(Lig).Insert
   Next
End Sub