[XL-2000] Liste de choix

[zeralium]

Bonjour,

J'ai un soucis sur une liste de choix, voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
    If Target.Column = 3 And Target.Row = ligne Then
        ligne = cst.Row - 2
        With Cells(Target.Row, Target.Column).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                 xlBetween, Formula1:="=$A$3:$A$" & ligne & "," & "PROBLEME"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
    End If

Je souhaite créer une liste qui est fonction de la variable "ligne" et ajouter en bas de la liste un autre choix "PROBLEME" qui est lui constant.