bonjour a tous

J'ai un petit soucis avec la macro suivante


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
Private Sub CommandButton2_Click() 
Dim Plage As Range, CelS, celR As Range, CelD, celW As Range 
      Application.ScreenUpdating = False 
      With Worksheets("doss V") 
             Set Plage = .Range("c3", .Range("h65536").End(xlUp)) 
      End With 
      Set CelD = Worksheets("doss").Range("w5") 
      For Each CelS In Plage.Rows 
 
             CelS.Copy CelD 
             Set CelD = CelD.Offset(3, 0) 
 
      Next CelS 
      Application.ScreenUpdating = True 
      Set celW = Worksheets("doss").Range("w4") 
      Set celR = Worksheets("doss V").Range("C1:h1") 
      celR.Copy celW 
End Sub

dans la premiere partie de la macro je fais un CTRL+C CTRL+V

ici CelS.Copy CelD

et il faut absolument que je le fasse en CTRL+C CTRL+V mais copie de la valeur uniquement donc il faudrait utiliser la commande PasteSpecial Paste:=xlPasteValues
mais je ne voudrais pas utiliser la commande select pour ne pas ralentir le code.

question : y a t-il une astuce ou faut-il utiliser la commande select pour faire un pastespecial ?

@+