Bonjour
Robert je te propose quelque chose mais c'est un peu tiré par les cheveux, car pas par bordures.
Sub BordGras()
Range("G10").Select
Set MaSelection = Selection
h = MaSelection.Height
w = MaSelection.Width
t = MaSelection.Top
l = MaSelection.Left
ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
l, t, w, h).Select
Selection.ShapeRange.Line.Weight = 3#
Selection.ShapeRange.Line.DashStyle = msoLineSquareDot
Selection.ShapeRange.Fill.Visible = msoFalse
MaSelection.Select
End Sub
Bon courage
Pascal