Bonjour toutes et tous
coucou Thauthème, le pb la listbox
@William la listbox sur le Rowsource et les mots séparés (espace) de la feuille Base article + les virgules au lieu des points virgules, la variable lr pas trop compris le truc
Sub Show_Base_article()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Base article")
Dim lr As Long
lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))
If lr = 2 Then lr = 1
With Me.ListBox1
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "60;150;80;80"
.RowSource = "'Base article'!A2:D200" '& lr
End With
End Sub