Bonjour,
1) il faudra nous expliquer ce que ça fait là
Sinon voici le code du bouton valider
Private Sub CommandButton2_Click()
Dim Inc As Integer
For Inc = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(Inc) = True Then
' Colonne X = 24ème
Sheets("Feuil2").Cells(2, 24 + Inc).Value = Sheets("Feuil2").Cells(1, 24 + Inc).Value
End If
Next Inc
End Sub
A+