Option Explicit
Sub MeF()
Dim DerL1&, DerL2&, Plage As Range, Titre As Range
DerL1 = Feuil1.Range("E65000").End(xlUp).Row
DerL2 = Feuil1.Range("L65000").End(xlUp).Row
Set Plage = Union(Feuil1.Range("E5:H" & DerL1), Feuil1.Range("L5:T" & DerL2))
Set Titre = Feuil1.Range("E5:H5,L5:T5")
Cells.Interior.Color = xlNone
Cells.Borders.LineStyle = xlNone
Plage.Borders.Weight = xlMedium
Plage.Borders(xlInsideHorizontal).LineStyle = xlNone
Titre.HorizontalAlignment = xlCenter
Titre.Interior.Color = 5296274
Titre.ColumnWidth = 10
Range("E5").Select
End Sub
Sub Tableau_mettre_en_forme()
Dim Plage As Range
Set Plage = Selection.CurrentRegion
With Plage
.Borders.Weight = xlMedium
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
With Range(Selection, Selection.End(xlToRight))
.Interior.Color = 5880731
.HorizontalAlignment = xlCenter
.Borders.Weight = xlMedium
.Font.Bold = True
End With
End Sub
...seul bémol, ne fonctionne pas si le tableau est discontinu...
Sub Tableau_mettre_en_forme_2()
Dim Plage As Range
Set Plage = Selection
With Plage
.Borders.Weight = xlMedium
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
With Plage(1, 1).Resize(1, Plage.Columns.Count)
.Interior.Color = 5880731
.HorizontalAlignment = xlCenter
.Borders.Weight = xlMedium
.Font.Bold = True
End With
End Sub
Sub Multi_Tableaux()
Dim C As Range
For Each C In Selection.Areas
With C
.Interior.ColorIndex = xlNone
.Borders.Weight = xlMedium
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
With C(1, 1).Resize(1, C.Columns.Count)
.Interior.Color = 5880731
.HorizontalAlignment = xlCenter
.Borders.Weight = xlMedium
.Font.Bold = True
End With
Next C
End Sub