Bonjour,
Pour commencer, peux-tu préciser ta version Excel ?
Sinon, on va commencer par structurer les données.
On verra ensuite !...
ALT F8, puis exécuter la procédure CreateTable
Cdlt
Public Sub CreateTable()
Dim tbl, arr()
Dim I As Long, J As Long, k As Long
tbl = Worksheets("Détail_parcs (2)").Cells(1).CurrentRegion.Value
For I = 2 To UBound(tbl)
For J = 2 To UBound(tbl, 2)
If tbl(I, J) > 0 Then
ReDim Preserve arr(3, k + 1)
arr(0, k) = tbl(I, 1)
arr(1, k) = tbl(1, J)
arr(2, k) = tbl(I, J)
k = k + 1
End If
Next J
Next I
With Worksheets("Table")
.Cells(1).CurrentRegion.Offset(1).ClearContents
If k > 0 Then .Cells(2, 1).Resize(k, 3).Value = Application.Transpose(arr)
.Cells(1).Resize(, 3).EntireColumn.AutoFit
End With
End Sub