Encadrer une plage VBA

merci

Bonjour et bienvenu(e)

A tester

Sub encadrement()
  With Selection
    .BorderAround LineStyle:=xlDouble
  End With
End Sub

merci

Bonjour,

Peut-être avec

Sub encadrement2()
Dim Cel As Range
    For Each Cel In Selection
        Cel.BorderAround LineStyle:=xlDouble
    Next Cel
End Sub

A+

merci