Dim L As Integer
Dim i As Long
If L = 40 Then
MsgBox "Vous êtes arrivé à la dernière ligne de ce Bon de Livraison", vbCritical, "Micro-Plus => Fin de BL"
Exit Sub
End If
With Sheets("Model_BL")
.Range("A16").Resize(Range("A16").Rows.Count) = ListBox1.List(ListBox1.ListCount - 1, 0)
.Range("B16").Resize(Range("B16").Rows.Count) = ListBox1.List(ListBox1.ListCount - 1, 1)
.Range("C16").Resize(Range("C16").Rows.Count) = ListBox1.List(ListBox1.ListCount - 1, 2)
.Range("D16").Resize(Range("D16").Rows.Count) = ListBox1.List(ListBox1.ListCount - 1, 3)
End With