XL 2019 texte et bordure bouton vba

...
     'Masquer les journées vides
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               With rg.Rows(i).Resize(11)
                    .Interior.Color = Blanc
                    .Font.Color = Blanc
                    .Borders.LineStyle = xlNone
               End With
          End If
     Next i
...

Sub Masquer()
     Dim WSh As Worksheet, rg As Range, Ligne As Range, Blanc As Long, Noir As Long, Vert1 As Long, Vert2 As Long, i As Long
    
     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Vert1 = RGB(226, 239, 218)
     Vert2 = RGB(198, 224, 180)
    
     Set WSh = Sh_Belgique
    
     'Tableau de classement
     Set rg = WSh.[AM4:BE21]
     Application.ScreenUpdating = False
     For Each Ligne In rg.Rows
          With Ligne
               If Len(.Cells(2) & "") = 1 Then
                    .Borders(xlInsideVertical).LineStyle = xlNone
                    .Borders(xlEdgeLeft).LineStyle = xlNone
                    .Borders(xlEdgeRight).LineStyle = xlNone
                    .Borders(xlEdgeBottom).LineStyle = xlNone
                    .Interior.Pattern = xlNone
                    .Font.Color = Blanc
               End If
          End With
     Next Ligne
    
     'Résultats des journées
     Set rg = WSh.[D3:K376]
     'Masquer les équipes non renseignées (nom = 1 lettre)
     With rg
          For i = 1 To 374
               If Len(.Cells(i, 3) & "") = 1 Then
                    With .Rows(i)
                         .Borders(xlInsideVertical).LineStyle = xlNone
                         .Borders(xlEdgeLeft).LineStyle = xlNone
                         .Borders(xlEdgeRight).LineStyle = xlNone
                         .Borders(xlEdgeBottom).LineStyle = xlNone
                         .Interior.Pattern = xlNone
                         .Font.Color = Blanc
                    End With
               End If
          Next i
     End With
     'Masquer les journées vides
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               With rg.Rows(i).Resize(11)
                    .Interior.Color = Blanc
                    .Font.Color = Blanc
                    .Borders.LineStyle = xlNone
               End With
          End If
     Next i
     Application.ScreenUpdating = True
    
End Sub

    ...
 'Afficher les journées vides
     Set Modèle = rg.Resize(11)
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               Modèle.Copy
               rg.Rows(i).Resize(374 - i + 1).PasteSpecial Paste:=xlPasteFormats
               Application.CutCopyMode = False
               Exit For
          End If
     Next i
...