Bonjour Dan et le forum,
Dan,
la fonction est inutile car tu as une syntaxe d'une ligne qui te la donnes ( quand je débutais, j'avais fait comme toi et j'avais trouvé cette astuce sur le site d'Eric Renaud).
Autre témoignage pour débutant: évite les "select" et "selection" qui bouffe un temps énorme. A lire si tu ne l's pas déjà fait: accélérer code VBA sur le site de Laurent Longre (ça ne lit pas comme un roman policier...)
Tu as aussi un site super ( ça n'engage que moi) pour apprendre le VBA: info-3000.com
Sub compiler()
Dim lig As Long
' on recherche la 1° ligne vide après C17
lig = Columns(3).Find("", [C17], , , xlByRows).Row
'on affecte la valeur choisie dans ta listbox à cette cellule
Cells(lig, 3) = ta_listbox(Value)
End Sub
A+
Michel