Cells(9, 34).Interior.ColorIndex = 3 'colore la case en jaune/orange (avertissement)
With Cells(9, 34).Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Alerte"
.ErrorTitle = ""
.InputMessage = " < 9 jours !"
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With