merci, j'ai réussi à faire ce que je voulais
Range("référence cellule avec date").select
if ActiveCell.Value > now then
Range("plage à protéger").select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=une cellule vide"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End if
Et sur le conseil de chris, le tout dans une macro au démarrage, et le tour est joué.
Merci