Sélection champ d'une liste à l'a sélection d'une feuille

Bonjour,

dans un fichier excel à 2 feuilles, j'aimerai à la sélection de la feuille "RESUME" que le premier nom de ma liste soit sélectionné.

Les noms de ma liste sont définis par nomliste Feuille "Nom".

Ma liste est positionnée en C2 de la feuille RESUME et définie par nom.

Question subsidiaire, est il possible dans la liste de supprimer les lignes vides ?

Merci pour votre contribution

Bonjour,

Un test

Bonjour

Bonjour à tous

Un autre essai à tester.

Option Explicit

Dim fn As Worksheet, dico As Object, k
Dim i, sformula$

Private Sub Worksheet_Activate()

    Set fn = Sheets("Nom")
    Set dico = CreateObject("scripting.Dictionary")
    sformula = ""
    For i = 2 To fn.Range("A" & Rows.Count).End(xlUp).Row
        If fn.Range("A" & i) <> "" Then
            dico(fn.Range("A" & i)) = fn.Range("A" & i)
        End If
    Next i
    k = dico.keys
    For i = 0 To dico.Count - 1
        sformula = sformula & "," & k(i)
    Next i
    Range("C2").Validation.Delete
    Range("C2").Validation.Add Type:=xlValidateList, Formula1:=sformula
    Range("C2") = dico(k(0))
    dico.RemoveAll
End Sub

Bye !

Merci à vous 2.

la solution de gmb me permet à la fois de sélectionner le 1re ligne de ma liste et de supprimer les lignes vides.