.Range("a" & 1, "k" & 33).PasteSpecial Paste:=xlPasteAll
[COLOR="Red"].Range(Cells(1, 1), Cells(1, 4)).NumberFormat = "General"[/COLOR]
.Range("q" & 1) = ""
[COLOR="Red"].Cells(1, 1).FormulaR1C1 = "=soum!R[17]C"
.Cells(1, 2).FormulaR1C1 = "=soum!R[17]C"
.Cells(1, 3).FormulaR1C1 = "=soum!R[17]C"
.Cells(1, 4).FormulaR1C1 = "=soum!R[17]C"[/COLOR]