Sub Formules()
Dim tablo, i&, x$
With [A1].CurrentRegion.Resize(, 3)
tablo = .Formula 'matrice, plus rapide
For i = 1 To UBound(tablo)
x = tablo(i, 2)
If Left(x, 1) = "=" Then
x = Replace(Replace(Replace(Replace(x, "A", "C"), "=", ""), """", ""), "&", "")
tablo(i, 3) = "=" & x
End If
Next
.Formula = tablo 'restitution
End With
End Sub