Private Sub CommandButton8_Click()
With Me.ListBox2
If .ListCount = 0 Then
Exit Sub
Else
If .ListCount > Range("plage1800").Cells.SpecialCells(xlCellTypeBlanks).Count Then
MsgBox "Trop d'articles vous n'avez que " & Range("plage1800").Cells.SpecialCells(xlCellTypeBlanks).Count & " emplacements"
.Clear
Exit Sub
Else
Range("plage1800").Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Resize(.ListCount) = .List
End If
End If
End With
End Sub