Si l'on veut seulement inverser 2 cellules, on peut utiliser aussi :
Code:
Sub Inverser()
Dim F$
F = [A1].Formula
[A1].Formula = [B1].Formula
[B1].Formula = F
End Sub
Mais si l'on veut inverser des plages de cellules ou utiliser une macro évènementielle Worksheet_Change, c'est plus compliqué, et il faudrait préciser.