Private Sub AppliquerFormat(rng As Range, fColor&, tBorders As XlBorderWeight)
With rng
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "Calibri": .Bold = True: .Size = 11
End With
.Borders.LineStyle = 1
.Borders.Weight = tBorders
.Interior.ColorIndex = fColor
End With
End Sub