Bonsoir djudju
Pour répondre à ta question, il suffit de programmer l'évènement "Change" de la feuille de calcul contenant la cellule à tester de la façon suivante :
=======================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Range("B5") = "" Then
Rows(5).Hidden = True
Else
Rows(5).Hidden = False
End If
End If
End Sub
=======================================================
Cordialement.
Omicron