Bonjour @fil28
Excusez-moi pour la langue, je ne suis pas francophone.
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=INDIRECT(""" & Range("$C17").Address(True, False) & """)"
Si la cellule C17 est vide, le résultat de Formula1 renvoie une erreur
Pour...