Private Sub CommandButton1_Click()
Dim I As Integer, y As Integer, Chaine As String, k As Integer
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
Chaine = Chaine & "-" & .List(I): y = y + 1
End If
Next I
End With
'-4142=pas de couleur
With Sheets("Planning W-E")
For k = 4 To .Range("B21").Row
If y > 0 Then
If .Cells(k, 2).Interior.ColorIndex = -4142 And .Cells(k, 2) = "" Then
.Cells(k, 2) = Chaine
Exit For
End If
End If
Next
End With
End Sub