copier lignes filtrées

Bonjour
Je ne comprends pas pourquoi mon code ne fonctionne pas.
Je voudrais qu'il me selectionne var nb lignes d'une page filtrée pour les coller dans une autre feuille (var feuille).
J'ai un message d'erreur "pas de cellules correspondantes


nb = Sheets("commande").Range("C19")
Dim feuille As String
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(feuille).Range("A65536").End(x lUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n

Qui peut m'aider ?
Merci.