je pense que ça marche mais il y un soucis lorsque que je le rajoute à mon code à la ligne 35 je vois pas ce que c'est :
Sub CentrerRectangle()
Const plage = "A1:CM48"
Dim hori&, verti&, cellHori&, cellVerti&, rgRectangle, s$
Cells.Borders.LineStyle = xlLineStyleNone
s = "Dimension...