merci j'ai trouvé
Range("C20:C25").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-195
Range("G20,L20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("C20:C25").Select
Application.CutCopyMode = False
Range("G20,L20").Select
je devais simplement remplacer le : par la , à la quatrième ligne
je voulais copier de c20 à c25 dans 2 cellules différentes ici en G20 et L20
merci