Sub test2()
Dim Plg(), TabRepot(), i&
With Sheets("Feuil1")
Plg = .Range(.Cells(3, 3), .Cells(Rows.Count, 7).End(xlUp)).Value
ReDim TabReport(1 To UBound(Plg, 1))
For i = 1 To UBound(Plg, 1)
TabReport(i) = Plg(i, 1) & "-" & Plg(i, 3) & "-" & Plg(i, 5)
Next i
.Cells(3, 11).Resize(UBound(TabReport, 1)) = Application.Transpose(TabReport)
End With
End Sub