' transformer une plage discontinue en table continue
Function trf_plage(plage As Range) As Variant
Dim cel As Range, i As Long, tablo() As Variant
Application.Volatile
i = -1
For Each cel In plage
i = i + 1
ReDim Preserve tablo(i)
tablo(i) = cel.Value
Next
trf_plage = tablo
End Function