Dim Lst As Range
Dim Lst2 As Range
Dim Liste As String
With Worksheets("Profs")
Set Lst = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste", "=Profs!" & Lst.Address
With Worksheets("Rec").Range("B18:B63").Validation
.Delete
.Add xlValidateList, , , "=Liste"
.InputTitle = "Sélection"
.InputMessage = "Recherche rapide"
End With
With Worksheets("Evenements")
Set Lst2 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste", "=Evenements!" & Lst2.Address
With Worksheets("Rec").Range("P18:P63").Validation
.Delete
.Add xlValidateList, , , "=Liste"
.InputTitle = "Sélection"
.InputMessage = "Recherche rapide"
End With