Erreur code

Florian53

XLDnaute Impliqué
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.

Code:
   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
 

Discussions similaires