XL 2019 texte et bordure bouton vba

Sub MasquageExtra()
    
     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Dim Rg As Range, Rg2 As Range
     With ThisWorkbook.Worksheets("belgique")
          Set Rg = .Range("AM20:AV21")
          With Rg
               .Borders.Color = Blanc
               .Borders(xlEdgeTop).Color = Noir
               .Interior.Color = Blanc
               .Font.Color = Blanc
          End With
          
          Set Rg = .Range("D12:K12")
          Set Rg2 = .Range("F12:I12")
          For i = 34 To 375 Step 11
               Set Rg = Union(Rg, Rg.Offset(11))
               Set Rg2 = Union(Rg2, Rg2.Offset(11))
          Next i
          
          With Rg
               .Interior.Color = Blanc
               .Font.Color = Blanc
          End With
          With Rg2
               .Borders.Color = Blanc
               .Borders(xlEdgeTop).Color = Noir
          End With
     End With
End Sub
Sub AffichageExtra()

     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Vert1 = RGB(226, 239, 218)
     Vert2 = RGB(198, 224, 180)
    
     Dim Rg As Range, Rg2 As Range, Rg3 As Range
     With ThisWorkbook.Worksheets("belgique")
          Set Rg = .Range("AM20:AV21")
          With Rg
               .Borders.Color = Noir
               .Interior.Color = Blanc
               .Font.Color = Noir
          End With
          
          Set Rg = .Range("D12:K12")
          Set Rg2 = .Range("F12:I12")
          Set Rg3 = .Range("D12,K12")
          For i = 34 To 375 Step 11
               Set Rg = Union(Rg, Rg.Offset(11))
               Set Rg2 = Union(Rg2, Rg2.Offset(11))
               Set Rg3 = Union(Rg3, Rg3.Offset(11))
          Next i
          With Rg2
               .Interior.Color = Vert2
               .Borders.Color = Noir
               .Font.Color = Noir
          End With
          
          With Rg3
               .Interior.Color = Vert2
               .Font.Color = Noir
          End With
     End With

End Sub

Sub Masquer()
Application.ScreenUpdating = False
Afficher
With [D:K]
    .FormatConditions.Add xlExpression, Formula1:="=($F1=""A"")+($F1=""B"")"
    .FormatConditions(1).Interior.Color = vbWhite
    .FormatConditions(1).Font.Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeLeft).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeBottom).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeRight).Color = vbWhite
End With
With [AM:AV]
    .FormatConditions.Add xlExpression, Formula1:="=($AN1=""A"")+($AN1=""B"")"
    .FormatConditions(1).Interior.Color = vbWhite
    .FormatConditions(1).Font.Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeLeft).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeBottom).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeRight).Color = vbWhite
End With
End Sub

Sub Afficher()
On Error Resume Next
[D:K,AM:AV].FormatConditions.Delete
End Sub