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