Sub test()
Dim CollecPlage As New Collection, Plg As Range
CollecPlage.Add Sheets("Feuil1").Range("A1:A10") 'range("maplage1")
CollecPlage.Add Sheets("Feuil2").Range("A1:A10") 'range("maplage2")
For Each Plg In CollecPlage
with Plg
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
.Rows(1).WrapText = True
end with
Next
End Sub