With awb.Sheets(unité).Range("b4").validation 'listing agents en B4
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ListingAgents"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Sélectionnez votre nom"
.ErrorTitle = "Nom incorrect"
.InputMessage = "Cliquez sur la flèche pour sélectionner votre nom"
.ErrorMessage = "Le nom saisi ne correspond pas. " & Chr(10) & "Il est préférable de sélectionner votre nom dans la liste déroulante."
.ShowInput = True
.ShowError = True
End With