Copier des lignes dans un onglet

Sub test()
Dim i&, k%, ma_plage As Variant
Sheets("feuil1").Select
For i = 2 To Range("A65536").End(xlUp).Row
    ma_plage = Range("A" & i & ":C" & i).Value
    Select Case Cells(i, 1).Value
    Case "Paul"
        With Sheets(Cells(i, 1).Value)
            For k = 1 To 3
                .Cells(65536, k).End(xlUp).Offset(1, 0).Value = ma_plage(1, k)
            Next k
        End With
    Case "André"
        With Sheets(Cells(i, 1).Value)
            For k = 1 To 3
                .Cells(65536, k).End(xlUp).Offset(1, 0).Value = ma_plage(1, k)
            Next k
        End With
    End Select
Next i
End Sub