bonjour,
solution via une macro
Sub aargh()
t = Sheets("matrice départ").UsedRange
ReDim res(1 To UBound(t, 1) * UBound(t, 2), 1 To 1)
For i = LBound(t) To UBound(t)
For j = LBound(t, 2) To UBound(t, 2)
k = k + 1
res(k, 1) = t(i, j)
Next j
Next i
Sheets("format arrivée").Range("A1").Resize(k, 1) = res
End Sub