Bonjour à tous

Comment puis-je faire dans la boucle ci dessous pour ne copier que la valeur de la cellule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
numdl = Range("b65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
For i = 2 To numdl
'copie le n° de la facture
Liste.Range("A2").Copy Destination:=Leger.Range("b12")
'copie le nom
Liste.Range("b2").Copy Destination:=Leger.Range("f9")
'copie le prix ht
Liste.Range("c2").Copy Destination:=Leger.Range("H25")
'copie le prix eco ht
Liste.Range("d2").Copy Destination:=Leger.Range("h27")
'copie le type de produit
Liste.Range("e2").Copy Destination:=Leger.Range("D25")
'copie la marque
Liste.Range("f2").Copy Destination:=Leger.Range("C25")
'copie la reference
Liste.Range("g2").Copy Destination:=Leger.Range("B25")
'imprime facture
Leger.PrintOut Copies:=1
'suprime ligne
Liste.Rows("2:2").Delete Shift:=xlUp
Next i
Merci