Private Sub CommandButton1_Click()
Dim element_select As Boolean
Dim nb_element, i As Integer
element_select = False
nb_element = ListBox1.ListCount
For i = 0 To nb_element - 1
If ListBox1.Selected(i) = True Then
element_select = True
Sheets("Rapport").Range("H6") = ListBox1.List(i)
End If
Next i
If element_select = False Then
Sheets("Rapport").Range("H6:N6").ClearContents
End If
Me.Hide
End Sub