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