Erreur code

[Florian53]

Bonjour le forum,

Je réalise une macro qui me sert à copier une plage de données dans une autre feuille:

Le principe: La variable Cel me sert à retrouver une valeur dans la colonne A par rapport à la valeur d'une textBox

Si celle ci est retrouvé ,je voudrais qu'il copie la ligne en question mais seulement les colonnes de C à K à la derniere ligne non vide d'une autre feuille.

   Set Cel = Sheets(16).Columns("A").Find(what:=Me.TextBox1000, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
     Nombre = InputBox("Indiquer la quantité reçu : ", "Saisie numérique")
        With Sheets(Var_Imputation1000).Select
    Ligne = Range("C65536").End(xlUp).Offset(1, 0).Row
    Sheets(16).Range(Cel.Row, Columns("C:K")).Copy Destination = Sheets(Var_Imputation1000).Range("C" & Ligne)
   
  End With

Le code se met en erreur à la ligne surlignée en rouge.

Voyez vous mon erreur?

Merci à vous

 

[Florian53]

je viens d'essayer comme ceci:

Sheets(16).Range(Cells(Cel, 3), Cells(Cel, 11)).Copy Destination = Sheets(Var_Imputation1000).Range("C" & Ligne)

Mais toujours en erreur

 

[mutzik]

bonjour

Ligne = Sheets(Var_Imputation1000).Range("C"&rows.count).End(xlUp).Row
Sheets(16).Range("C"&Cel.Row&":"&"K"&Cel.row).Copy Destination = Sheets(Var_Imputation1000).Range("C" & Ligne)