bonjour arno, et les autres
Si tu veux vraiment le faire par macro essaye ça
C'est beacoup plus compliqué mais ça marche.
Sub addspéciale()
Dim cellule As Range
Dim tempo As Range
Dim i, j, x, y, indice As Integer
Worksheets(1).Activate
Worksheets(1).Range('B8:B50').Select
With Worksheets(2)
For Each cellule In Selection
x = cellule.Row
y = cellule.Column
If cellule.Text = '' Then Exit For
Set tempo = .Columns('B:B').Find(cellule.Text)
If tempo Is Nothing Then GoTo suite
i = tempo.Row
j = tempo.Column
.Cells(i, j + 1) = .Cells(i, j + 1) + Worksheets(1).Cells(x, y + 1)
.Cells(i, j + 2) = .Cells(i, j + 2) + Worksheets(1).Cells(x, y + 2)
.Cells(i, j + 3) = .Cells(i, j + 3) + Worksheets(1).Cells(x, y + 3)
GoTo fin
suite:
For indice = 8 To 50
If .Cells(indice, 2).Text = '' Then Exit For
Next indice
.Cells(indice, 2) = Worksheets(1).Cells(x, y)
.Cells(indice, 3) = Worksheets(1).Cells(x, y + 1)
.Cells(indice, 4) = Worksheets(1).Cells(x, y + 2)
.Cells(indice, 5) = Worksheets(1).Cells(x, y + 3)
fin:
Next cellule
End With
End Sub