With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ' nous sommes le '
.ErrorTitle = ''
.InputMessage = ' ' & jour & ' ' & jour1 & ' .'
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With