Private Sub Worksheet_Change(ByVal Target As Range)
Target.Rows.Offset(1, 0).Hidden = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Dim i As Long
For i = 50 To 4 Step -1
If Feuil1.Cells(i - 1, 1) = "" Then
Rows(i).Hidden = True
End If
Next i
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub