Bonjour,
Tu peux essayer ceci ...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
With Target.EntireRow
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End With
End If
End Sub
N'ayant pas de fichier.... j'ai choisi colonne D ... ET X=0
EDIT : TARGET à la place de Selection
Cordialement,