Sub CelluleArrondie()
ActiveWindow.DisplayGridlines = False
For colonne = 1 To 10
For ligne = 1 To 20
r1 = Cells(ligne, colonne).Height
r2 = Cells(ligne, colonne).Width
r3 = Cells(ligne, colonne).Top
r4 = Cells(ligne, colonne).Left
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, r4, r3, r2, r1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Next ligne
Next colonne
End Sub