Sub Un_Petit_Regime_A_La_Bordure()
'Restitution
With ActiveSheet.[A1:C1] ' 3 colonnes partant de la A ! nom de l'onglet à adapter
.CurrentRegion.Clear ' effacer la feuille
With .Offset(1).Resize(10)
'.FormulaLocal = b ' coller le tableau
.Font.Name = "calibri"
.Font.Size = 10
.Borders.LineStyle = 1 'Dans ce cas ici, on peut économiser 4 lignes. ;-)
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
End With
End With
End Sub