Sub ListeOUI()
Dim n&
n = Application.WorksheetFunction.Match("zzz", Sheets("etablissement").Columns(1))
With Sheets("menu").Range("i15").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=etablissement!$a$2:$a$" & n
End With
End Sub
Sub ListeNON()
Sheets("menu").Range("i15").Validation.Delete
End Sub