Sub report()
tablo = Range("A2:R" & Range("A" & Rows.Count).End(xlUp).Row)
ReDim tabres(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))
ligne = LBound(tabres, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
tabres(ligne, m) = tablo(LBound(tablo, 1), m)
Next
For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
If tablo(n, 1) <> tablo(n - 1, 1) Then
ligne = ligne + 1
For m = LBound(tablo, 2) To UBound(tablo, 2)
tabres(ligne, m) = tablo(n, m)
Next
Else
tabres(ligne, 13) = tabres(ligne, 13) & Chr(10) & Replace(tablo(n, 13), Chr(10), "")
End If
Next
Sheets("Sans doublons").Cells.ClearContents
ActiveSheet.Rows(1).Copy Destination:=Sheets("Sans doublons").Rows(1)
For n = LBound(tabres, 1) To UBound(tabres, 1)
For m = LBound(tabres, 2) To UBound(tabres, 2)
Sheets("Sans doublons").Cells(n + 1, m) = tabres(n, m)
Next
Next
'Sheets("Sans doublons").Range("A2").Resize(UBound(tabres, 1), UBound(tabres, 2)) = tabres
Sheets("Sans doublons").Select
End Sub