Microsoft 365 Regroupement d'un tableau de 2 dimensions en vba

    '---aménagement des en-têtes (facultatif)---
    .Columns(1).HorizontalAlignment = xlLeft
    For i = 2 To nlig - 1
        k = Application.Match(.Cells(i + 1, 1), P.Columns(1), 0)
        If k > Application.Match(.Cells(i, 1), P.Columns(1), 0) + 1 Then .Cells(i, 1) = .Cells(i, 1).Text & " à " & P(k - 1, 1).Text
    Next i
    If .Cells(i, 1) <> P(P.Rows.Count, 1) Then .Cells(i, 1) = .Cells(i, 1).Text & " à " & P(P.Rows.Count, 1).Text
    .Rows(1).HorizontalAlignment = xlCenter
    For j = 2 To ncol - 1
        k = Application.Match(.Cells(1, j + 1), P.Rows(1), 0)
        If k > Application.Match(.Cells(1, j), P.Rows(1), 0) + 1 Then .Cells(1, j) = .Cells(1, j).Text & " à " & P(1, k - 1).Text
    Next j
    If .Cells(1, j) <> P(1, P.Columns.Count) Then .Cells(1, j) = .Cells(1, j).Text & " à " & P(1, P.Columns.Count).Text