Private Sub CBvalide_Click()
'vider la listview
Dim L As Long, C As Byte
Dim LargeurCol As Single, MaHauteur As Single, Lg_Origine As Single
Application.ScreenUpdating = False
With Sheets("Facture")
L = .Range("B65536").End(xlUp).Row
'.............suite
End With
Application.ScreenUpdating = True
End Sub