Peut-on arrondir les bordures rectangulaires dans une cellule ou un groupe de cellules
fusionnées ?

sub CelluleArrondie()  
Set depart = ActiveCell  
r1 = depart.Height  r2 = depart.Width 
 r3 = depart.Top 
 r4 = depart.Left    
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _  r4, r3, r2, r1).Select  Selection.ShapeRange.Fill.Visible = msoFalse  
depart.Select End sub 

On peut encore arrondir davantage (une plage, entre autres ou des cellules fusionnées) en tirant sur la poignée de l'image ainsi créée. Et pour que la couleur "n'oublie pas" l'arrondi et reste "anguleuse", il suffit, par ex. de rajouter Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) et on a une cellule ou une plage dont la couleur est bien limitée par les bords arrondis de l'image