Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In [Tableau2[LIBELLE]]
If c.HasFormula Then If Not IsError(c) Then c.Value = c.Value
Next
Application.EnableEvents = True 'réactive les évènements
End Sub