quel code?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sel As Range
Set Sel = Range("d5:d16")
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
    If Target.Value = "Sélectionner Type" Then Exit Sub
    ActiveCell.Offset(1, 0).EntireRow.Hidden = False
End If
End Sub

Sub test()
a = Range("A65536").End(xlUp).Row - 1
Range("A6:F" & Range("A65536").End(xlUp).Row - 1).EntireRow.Hidden = True
Range("B2:B18").ClearContents
Range("E2:E18").ClearContents
Cells(5, 1).Value = "palette n°1"
Cells(5, 4).Value = "Sélectionner Type"
End Sub

Sub test_v2()
Dim cel As Range
For Each cel In Range("D5:D18")
    If cel = "Sélectionner Type" Then
        Range(Cells(cel.Row, 1), Cells(cel.Row, 6)).EntireRow.Hidden = True
        Exit Sub
    End If
Next cel
End Sub