With Cells(ligne, 7).Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "TITRE !"
.ErrorTitle = ""
.InputMessage = "Coucou ! "
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With