Bonjour,
Voici une proposition avec une limitation de l'affichage des lignes.
La ligne est affichée si la valeur de la colonne I est égale à celle de D12 +/- 5%.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Application.ScreenUpdating = False
Rows("17:261").EntireRow.Hidden = False
For Each Cel In Range("I17:I261")
If Cel.Value >= 1.05 * Range("D12") Or Cel.Value <= 0.95 * Range("D12") Then
Cel.EntireRow.Hidden = True
End If
Next Cel
Application.ScreenUpdating = True
End Sub
A+