Bonjour Nicolas
Je pense que la solution est là
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = Range("B1") Then
Calculate
End If
End Sub
Dans une cellule je n'y arrive pas car les fonctions ne sont exécutés que moment du calcul même en application.volatile
Sauf erreur
A+ Roland