XL 2010 Ajout ligne de code

[Scorpio]

Bien le bonjour à vous tous,
J'ai un petit souci de code VBA, je pense,, en fait, j'aimerais ajouter les titres de colonnes dans la feuille Liste_déroulante, mais, à chaque fois que supprime la liste déroulante en A1, elle revient.
Je ne sais comment faire, pourriez-vous s'il vous plaît me donner un coup de pouce. MERCI
A++++

 

[Papou-net]

Bonjour Scorpio,

Essaies comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mondico, c, temp
If Target.Column <= 6 And Target.Count = 1 And Target.Row > 1 Then


Set mondico = CreateObject("Scripting.Dictionary")
Select Case Target.Column

Cordialement.

 

[Scorpio]

Bonjour Papou-net
C'est super, merci beaucoup de ton aide, c'est impeccable
A++++++ et merci