XL 2019 Remplacer recherche sur feuille par une zone définie

Sub Personnaliser_Commentaires()
    Dim MyCmt As Range
    If MsgBox("        Voulez-vous réellemnt" & vbCrLf _
            & "     modifier les commentaires  ?", vbYesNo Or vbQuestion, "Confirmer votre choix...") = 6 Then
        For Each MyCmt In [BASE_COM]
            If Not MyCmt.Comment Is Nothing Then
                ' COMMENT REMPLACER LA LIGNE CI-DESSUS POUR NE CHERCHER
                ' QUE DANS LES CELLULES DE LA ZONE DÉFINIE PAR "BASE_COM"
                With MyCmt.Comment.Shape
                    .TextFrame.AutoSize = True
                    .AutoShapeType = msoShapeRoundedRectangle
                    With .OLEFormat.Object
                        .Font.Name = "Roboto"
                        .Font.Size = 16
                        .Font.ColorIndex = 0
                        .Font.Bold = True
                        .ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0)
                        .ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 0)
                        .ShapeRange.Line.BackColor.RGB = 6
                    End With
                End With
            End If
        Next
        MsgBox "Mise en forme des commentaires" & vbCrLf _
             & "        modifiée avec succès", 64, "Traitement terminé"
    End If
End Sub