Résultats de la recherche

Bonjour, Ci-joint mon code : Private Sub UserForm_Initialize() Dim D As Object, I As Integer Me.ListBox1.ColumnCount = 6 Me.ListBox1.ColumnWidths = "98;98;98;98;98;98" Me.ListBox1.Width = 300 Set F = Sheets("Traitement") TC = F.Range("A1").CurrentRegion Set D =...