Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, Range("A2:B" & Rows.Count), UsedRange)
If r Is Nothing Then Exit Sub
Dim t#
t = Timer
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each r In Intersect(r.EntireRow, [A:B]).Areas
r.Columns(2) = "=Mots_uniques(RC[-1])"
r.Columns(2) = r.Columns(2).Value 'supprime les formules
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
If Timer - t > 0.1 Then MsgBox "Durée d'exécution " & Format(Timer - t, "0.00 \s")
End Sub