Merci !!!!!
Tu es un Dieux
Au plaisir, et Trés bonne continuation
Pour rendre le tout convivial j'ai généré un code pour avoir automatiquement une liste déroulante sans doublon
mais je n'arrive pas à le faire prendre la colonne A de l'onglet Datas!
en utilisant Worksheets("Datas").range("A1:A") ►il ne prend que la premiere ligne
ou
range("Datas!A1:A") ► le Code se plante
si joint le début de Code associé à onglet WH-Analyse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As Variant 'déclare la variable L (Liste)
If Target.Address <> "$A$2" Then Exit Sub 'si la cellue sélectionnée n'est pas la cellue A2, sort de la procédure
TC = Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit le tableau de Cellules TC
encore Merci
Daniel