Bonsoir Gkhan, le Fil,
Il est possible aussi de passer par une macro à insérer dans le code de la feuille ou est placée la liste déroulante. Par l'utilisation de l'événement Change applicable à une cellule.
Private sub Worksheet_Change(ByVal Target as Range)
If Target.Address = $C$1 and Target>="A" then
Application.EnableEvents=False
'Ne pas utiliser CInt si le 2ème mot est alphabétique.
Target = Cint(Split(Target, " ") (1)
Application.EnableEvents = True
Target.Offset(0,1).select
End if
End sub
Ici pour une liste déroulante en cellule C1. Et dont le 2ème mot est un nombre entier. Le Split permet de couper le terme entier après l'espace. Et de ne garder que le 2ème terme, converti en valeur entière par Cint.
Cette solution permet aussi de prendre en compte un 2ème terme alphabétique.
Pour séparer verticalement tous les lignes de ta liste par une ligne vide. Il suffit d'insérer entre les lignes occupées une ligne comportant uniquement des espaces. Donc pour cellule A1, BLEU 10.
A2 '
A3 ROUGE 20
Évidemment ne pas avoir une trop grande liste.