XL 2019 création de bordure automatique de la cellule A2 jusqu'à la dernière cellule de la colonne G

Sub Bordures()
Range("A2", Cells(Rows.Count, "G").End(3)).Borders.LineStyle = 1
End Sub

Sub BorduresEpaisses()
With Range("A2", Cells(Rows.Count, "G").End(3))
.Borders.LineStyle = 1
.BorderAround 1, xlThick
End With
End Sub

Sub test_A()
Dim Plg As Range
Set Plg = Range("A2", Cells(Rows.Count, "G").End(3))
BorderMaker Plg, xlDashDotDot, xlMedium, vbRed, True
End Sub
Sub test_B()
Dim Plg As Range
Set Plg = Range("A2", Cells(Rows.Count, "G").End(3))
BorderMaker Plg, xlDouble, xlHairline, vbGreen, False
End Sub
Private Sub BorderMaker(rng As Range, lStyle As XlLineStyle, Trait As XlBorderWeight, Couleur As XlColorIndex, Contour As Boolean)
rng.Borders.LineStyle = lStyle
rng.Borders.Weight = Trait
rng.Borders.Color = Couleur
rng.BorderAround IIf(Contour, 1, xlNone), IIf(Contour, xlThick, xlThin)
End Sub