Remplir combobox

Bonjour, je souhaite récupérer les données de la ligne "1" , de la colonne "A" jusqu'à la dernière colonne non vide pour remplir une combo box. Auriez-vous une idée ? Merci.

Bonjour benoit, bonjour le forum,

Essaie comme ça :

Me.ComboBox1.List = Application.Transpose(Range("A1:" & Cells(1, Application.Columns.Count).End(xlToLeft).Address(0, 0)))

Bonjour ThauThème

Ma liste se trouve sur la feuille "Dépense"

J'arrive à le faire fonctionner comme ceci, mais y a t-il moyen de l'incorporer dans ton code ? Merci

Sheets("Dépenses").Select
Me.ComboBox1.List = Application.Transpose(Sheets("Dépenses").Range("A1:" & Cells(1, Application.Columns.Count).End(xlToLeft).Address(0, 0)))

Re,

Essai comme ça :

Me.ComboBox1.List = Application.Transpose(Sheets("Dépenses").Range("A1:" & Sheets("Dépenses").Cells(1, Application.Columns.Count).End(xlToLeft).Address(0, 0)))

Le Sheets("Dépenses").Select n'est pas nécessaire je pense (non testé).

Re,

En effet, le Sheets("Dépenses").Select n'est pas nécessaire,

Un grand merci ThauThème.