Bonsoir Hydrialis
Pas de Bonjour ...
Un merci qui est hurlé...
Bon ...
Faux départ !
La lecture de la charte s'impose
En attendant
de nos 'voisins' S.Garneau & JPSabatier
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
Bonne nuit
@+GD