Excel - Liste déroulante en VBA

Bonjour,


Je dois actuellement développer un outil comportant (en autre), une liste déroulante s'affichant sous conditions.
Pour ça, pas de problème quand je passe par l'outil de création des listes déroulantes, à l'aide d'une fonction IF et de plages de cellules.

Cependant, j'aimerai créer ces listes déroulantes en passant par une macro. Et là, j'ai un rapport de bug s'affichant au niveau de la formule .Add et ce jusqu'à la fin du IF.

Voici le code (les données ont été changées par soucis de confidentialité et de lisibilité, je ne travaille pas sur des fruits :p)

    Columns("K:K").Select 
    ActiveWindow.SmallScroll Down:=-24 
    With Selection.Validation 
        .Delete 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
        xlBetween, Formula1:= _ 
        "=IF(E2=""Poire"";Poire;IF(E2=""Pomme"";Pomme;IF(E2=""Abricot"";Abricot;IF(E2=""Melon"";Melon;IF(E2=""Orange"";Orange;IF(E2=Kiwi;Kiwi;IF(E2=""Litchi"";Litchi;IF(E2=""Raisin"";Raisin;IF(E2=""Banane"";Banane;"""")))))))))" 
        .IgnoreBlank = True 
        .InCellDropdown = True 
        .ShowInput = True 
        .ShowError = True 
    End With 
    Range("K5").Select 

Merci d'avance pour votre précieuse aide!