Bonjour et merci pour tous les efforts

Information : ListBox3 est alimenté depuis la feuille Mouvementmatériels.

Problématique : quand il y a pas d’item sur mon tableau ma ListBox3 affiche les entêtes « le problème la ligne des entêtes est sélectionnable », quand un item existe les entêtes disparaissent, voir l’Userform1 dans la feuille Mouvementmatériels---bouton La saisie.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
 
With Sheets("Mouvementmatériels")
    ListBox3.List = .Range("A3:j" & .Range("A65536").End(xlUp).Row).Value
End With
 
ListBox3.ColumnWidths = "300;30;150;30;70;150;65;70;2"
 
End Sub
je vous remercie infiniment pour votre attention.