Comment donner une apparence arrondie à une cellules?

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