Bonsoir banzai64,
cela te dérange t-il de m'expliquer ces différentes lignes?
J'avoue que le résultats est bon sur la 10 aine de lignes, il me reste plus qu' a essayer cela sur les 20000 ....
Mais j'aime bien comprendre afin d'essayer tout seul.
donc peux tu me mettre qques commentaire en face ces codes?
A l'avance je te remerci
Phil
With Sheets("Résultat")
.Cells.Clear
.Range("A1:F1") = Array("N° Article", "Code", "Prix HT 2010", "Stock 2010", "Prix HT 2011", "Stock 2011")
Ligne = 1
J = 4
Do
Ligne = Ligne + 1
.Range("A" & Ligne).Resize(1, 2).Value = Range("A" & J).Resize(1, 2).Value
If Range("B" & J) = Range("B" & J + 1) Then
.Range("C" & Ligne).Resize(1, 2).Value = Range("C" & J).Resize(1, 2).Value
.Range("E" & Ligne).Resize(1, 2).Value = Range("C" & J + 1).Resize(1, 2).Value
J = J + 1