SALUT
Sub Macro3()
'
' Macro3 Macro
'
'
Range("E35").Select
Selection.ClearContents
Range("F5:F31").Select
Selection.Copy
Range("E35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E35").Select
'je pense que vous parler de conversion
'alors
MsgBox Application.ConvertFormula(Formula:=ActiveCell, _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1)
'mais ça exige q'une formule a etait coller en Range("E35")
'/////////////////////////////
' ou vous vouler encore copier la formule
'alors
'ActiveCell.Formula = "=$A$4+$A$10"
''''''ActiveCell.FormulaR1C1 = _
''''''"copie de la formule"
Range("A4").Select
End Sub