Besoin d'aide vba

 1 - Toto
 2 - 2
 3 - titi
 4 - 65
 5 - maman
 6 - papa
 7 - 3
 8 - 8
 9 - toi
10 - moi
11 - 8
12 - moi
13 - 2

Sub tri1() '(si on connait la plage à parcourir)
Dim wk1 As Worksheet    'pour ma feuille 1
Dim wk2 As Worksheet    'pour ma feuille 2
Dim plage1 As Range     'plage de recherche de la feuille 1
Dim lig2 As Long        'compteur de ligne feuille 2
Dim cl                  'La cellue testée

    'Je déclare mes objets worksheet
    Set wk1 = Worksheets(1)
    Set wk2 = Worksheets(2)
    
    'Je déclare ma plage de recherche A1:A100 par exemple
    Set plage1 = wk1.Range("A1:A100")
    
    'J'initialise ma 1ère ligne pour recopier les cellules numériques
    lig2 = 1
    
    'Je parcours la plage
    For Each cl In plage1
        If IsNumeric(cl.Value) Then
            wk2.Range("A" & lig2).Value = cl.Value
            lig2 = lig2 + 1
        End If
    Next cl


End Sub

Sub tri2() '(si on ne connait plage la plage à parcourir)
Dim wk1 As Worksheet    'pour ma feuille 1
Dim wk2 As Worksheet    'pour ma feuille 2
Dim lig1 As Long        'compteur de ligne feuille 1
Dim lig2 As Long        'compteur de ligne feuille 2

    'Je déclare mes objets worksheet
    Set wk1 = Worksheets(1)
    Set wk2 = Worksheets(2)
    
    'J'initialise mes lignes
    lig1 = 1
    lig2 = 1
    
    'Je parcours la colonne A
    While wk1.Range("A" & lig1).Value <> ""
        'si la valeur est numérique
        If IsNumeric(wk1.Range("A" & lig1).Value) Then
            wk1.Range("A" & lig1).Value = wk2.Range("A" & lig2).Value
            lig2 = lig2 + 1
        End If
    'Ligne suivante
    lig1 = lig1 + 1
    Wend

End Sub