Microsoft 365 Macro pour redimensionner une zone nommée

Sub REDIMENSIONNER_PLAGE_NOMMEE()

Dim ligne As Variant

valeur_recherchée = "b"

Set ligne1 = Sheets("Historique des intégrations").Range(Cells(2, "B"), Cells(60000, "B")).Find(What:=valeur_recherchée, LookAt:=xlWhole)
If Not ligne1 Is Nothing Then ligne_début = ligne1.Row

Set ligne2 = Sheets("Historique des intégrations").Range(Cells(2, "B"), Cells(60000, "B")).Find(What:=valeur_recherchée, SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
If Not ligne2 Is Nothing Then ligne_fin = ligne2.Row

'Historique_extractions
Dim maplage As String, derligne As Long
 
maplage = "$A$" & ligne_début & ":$A$" & ligne_fin

'Modification de la plage
With ActiveWorkbook.Names("Historique_extractions")
        '.Name = "Historique_extractions"
        .RefersTo = "='Historique des intégrations'!" & maplage
End With
 

End Sub

Sub REDIMENSIONNER_PLAGE_NOMMEE()

'déclarations
Dim ligne As Range
Dim maplage As String, derligne As Long

    valeur_recherchée = "b"
    
    With Sheets("Historique des intégrations") 'dans la feuille (pas besoin de l'activer)
        Set ligne1 = .Range(.Range("B2"), .Range("B6000")).Find(What:=valeur_recherchée, LookAt:=xlWhole)
        If Not ligne1 Is Nothing Then ligne_début = ligne1.Row
        
        Set ligne2 = .Range(.Range("B2"), .Range("B6000")).Find(What:=valeur_recherchée, SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
        If Not ligne2 Is Nothing Then ligne_fin = ligne2.Row
    
        maplage = "$A$" & ligne_début & ":$A$" & ligne_fin
    End With
    
    With ActiveWorkbook.Names
        .Add Name:="Historique_extractions", RefersTo:="='Historique des intégrations'!" & maplage
    End With
End Sub

Sub Creer_Exemple()
Dim r As Range
[A1] = "ENTETE_1"
[A1].AutoFill Destination:=Range("A1:J1"), Type:=xlFillDefault
Range("A2").Formula2R1C1 = "=RANDARRAY(25,10,100,1000,TRUE)"
Set r = [A1].CurrentRegion: r = r.Value
r.Borders.Value = 1
End Sub