'---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