Sub Decale()
'se lance par les touches Ctrl+D
Dim f$, adr$
f = Mid([A1].Formula, 2)
adr = Mid(f, InStr(f, "!") + 1) 'référence de la cellule
adr = Evaluate(adr).Offset(-1).Address(ReferenceStyle:=xlR1C1) 'décale vers le haut
[A2] = ExecuteExcel4Macro(Left(f, InStr(f, "!")) & adr)
End Sub