merci pour ton aide mais je pense que ta solution n’est pas adapté à mon utilisation.
J'ai trouvé ce bout de code:
Sub LISTE_DEROULANTE_SELECTION()
Range("I10").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="accepté; refusé; négociation"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Quelqu'un saurait-il comment faire pour étendre ma liste déroulante de la cellule I10 jusqu’à la dernière cellule non vide de la colonne A?