Chaîne de concaténation dans VBA

J'ai une formule (sans le signe précédent) dans une cellule, et je veux la copyr dans une cellule diff et append le signe précédent. Je dois faire cela dans une macro et je dois aussi utiliser des nombres absolus de cellules et non des references relatives. Comment fait-on ça?

 With ThisWorkbook.Sheets("Sheet1") .Range("A1").Formula = "=" & .Range("B1").Value End With