[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&, oPlg As Range
Set oPlg = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)
For i = oPlg.Cells.Count To 2 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i - 1, 1).Offset(0, 43).Resize(1, 12).Value = Cells(i, 1).Offset(0, 31).Resize(1, 12).Value
Rows(i).EntireRow.Delete
End If
Next i
End Sub[/B][/COLOR]