Re : copier n lignes d'une table dans une autre table
Sub transfert()
'
'
nb = Sheets("commande").Range("C19")
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).Copy Destination:=Sheets(feuille).Range("A65536").End(xlUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n
'
End Sub
Voici mon code mais j'ai un message d'erreur "l'indice n'appartient pas à la sélection" relatif à la ligne surlignée en bleu.
Z'avez une idée. Merci.