Sub tests()
'°°°°° juste pour créer des données de test °°°°°
Range("A1:C14") = "=ROW()*COLUMN()" '°°°°
'°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
mise_en_forme Range("A1:A14"), xlMedium, True, True, 10
mise_en_forme Range("C1:C14"), xlThin, False, False, 20
End Sub
Private Sub mise_en_forme(R As Range, B As XlBorderWeight, Gras As Boolean, Ital As Boolean, Taille%)
R.Borders.Weight = B: R.Font.Bold = Gras: R.Font.Size = Taille: R.Font.Italic = Ital
End Sub