Salut Nychko,
Voici un exemple de procédure qui change la plage de références d'une liste de validation située en B1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Range("B1").Validation
.Delete
If Target.Text = "Jours" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$D$1:$D$7"
Else
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$E$1:$E$12"
End If
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub
Dans cet exemple, si l'on choisis "Jours" en A1, la liste de B1 propose les jours de la semaine, sinon les mois de l'année.
A+
Horatio