Bonsoir vgendron, fanch55, job75, le forum,
Donc :
If (ptr + 10) >= UBound(aOut, 1) Then
ReDim Preserve aOut(1 To UBound(aOut, 1) + GROWTH_FACTOR, 1 To UBound(aOut, 2))
End If
devient :
If (ptr + 10) >= UBound(aOut, 2) Then
ReDim Preserve aOut(1 To UBound(aOut, 1), 1 To...