Pourquoi cette macro ne marche pas ?

Bonjour,

Le but de cette macro est de repérer dans une feuille (Test) les lignes contenant dans la 3ème colonne l'heure 21:30 et de les copier dans la feuille Resultat en gardant le format heure surtout des colonnes !!

Private Sub CommandButton1_Click()

Dim ligne, i As Integer
Dim Test, Resultat As Worksheet

Set Test = Sheets("Test")
Set Resultat = Sheets("Resultat")

i = 1

For ligne = Test.UsedRange.Rows.Count + Test.UsedRange.Row To 1 Step -1
If Format(Cells(ligne, 3), "hh:mm:ss") = "21:30:00" Then
Test.Rows(ligne).Copy(Resultat.Rows(i)).xlPasteAll 'Le probleme se situe à cet endroit
i = i + 1
End If

Next ligne

End Sub

Par avance, merci pour votre précieuse aide !