Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtrée
On Error Resume Next
With Range("A1", UsedRange).Offset(1)
.Columns(2).ClearContents 'RAZ
.Cells(Application.Match([E12], .Columns(1), 0), 2) = [E13] 'à adapter au besoin
End With
Application.EnableEvents = True 'réactive les évènements
End Sub