Bonjour
A tester..
- Click droite sur l'onglet "Formulaire"
- choisir l'option "Visualiser le code"
- coller le code ci-dessous dans la fenêtre
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D18")) Is Nothing Then
If UCase(Target.Value) = "BENNES" Then
Rows("24:39").Hidden = True
Else: Rows("24:39").Hidden = False
End If
End If
End Sub
NB : il n'y a pas de liste déroulante en D18 comme vous l'écrivez dans votre demande
Si ok -->
Cordialement