Public Sub CentrerDernieresColonnes(Optional NCols As Integer = 8)
' Centrer sur 2 colonnes les N dernières colonnes
' du tableau "parois_opaques" de la feuille "Rapport"
Dim i As Integer, FromCol As Integer, ToCol As Integer
With ThisWorkbook.Sheets("Rapport").ListObjects("parois_opaques")
FromCol = .ListColumns.Count - NCols + 1
ToCol = .ListColumns.Count - 1
For i = FromCol To ToCol Step 2
.ListColumns(i).Range.Resize(, 2).HorizontalAlignment = xlCenterAcrossSelection
Next
End With
End Sub