steelson,
à tout hasard sais-tu comment concatener en VBA
j'aimerais rajouter une concatenation au code ci-dessous avec les cellule C1 et A1 de l'onglet SIMULATEUR
Dim References As Object
Set References = CreateObject("Scripting.Dictionary")
Sheets("SIMULATEUR").Select
lig = Range("D5").Row
col = Range("D5").Column
Do Until Cells(lig, col).Value = ""
Do Until Cells(lig, col).Value = ""
References(Cells(lig, col).Value) = Cells(lig, col).Value
col = col + 1
Loop
col = Range("C5").Column
lig = lig + 1
Loop
Sheets("TEST").Select
Columns("A:A").ClearContents
Range("A1") = "MATIERE"
Range("B1") = "STOCK DISPO"
Range("C1") = "QUANTITE BESOIN"
Range("D1") = "STOCK RESTANT"
Cells(Range("A2").Row, Range("A2").Column).Resize(References.Count) = Application.Transpose(References.Items)