[VBA] remplir une listBox

    Sheets("Feuil1").ListBox1.AddItem "La variable"

Private Sub CommandButton1_Click()
Dim Txt As String, i As Integer, R As Integer
'sélectionner d'abord une cellule dans la ligne à ajouter
    R = ActiveCell.Row
    For i = 1 To 3: Txt = Txt & Cells(R, i).Value & " : ": Next i
    Sheets("Feuil1").ListBox1.AddItem Txt
End Sub

Option Explicit

Private Sub CommandButton1_Click()

    Dim Valeur1 As String, Valeur2 As String, Valeur3 As String
    
    Valeur1 = Range("A1").Value
    Valeur2 = Range("B1").Value
    Valeur3 = Range("C1").Value
    
    Me.ListBox1.Clear
    Me.ListBox1.AddItem Valeur1
    Me.ListBox1.AddItem Valeur2
    Me.ListBox1.AddItem Valeur3
    
    Me.ListBox2.Clear
    
    Me.ListBox2.AddItem Me.ListBox1.List(0)
    Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = Me.ListBox1.List(1)
    Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = Me.ListBox1.List(2)
    
End Sub
'

Private Sub CommandButton2_Click() ' Mise a zéro
    Me.ListBox1.Clear
    Me.ListBox2.Clear
End Sub
'

Private Sub CommandButton3_Click() ' Initialise
    Me.ListBox2.ColumnCount = 3
    Me.ListBox2.ColumnWidths = "2 cm;2 cm;2 cm"
End Sub
'