Private Sub UserForm_Initialize()
Dim Plage As Range
Dim I As Integer
With Worksheets("matériel en stock")
'en colonne G à partir de la ligne 2
Set Plage = .Range(.Cells(2, 7), .Cells(.Rows.Count, 7).End(xlUp))
End With
selection_dum.Clear
For I = 1 To Plage.Count
'si cellule en colonne J est vide
If Plage(I).Offset(, 3) = "" Then
selection_dum.AddItem Plage(I)
End If
Next
End Sub