[RESOLU] Erreur d'éxecution 2147024809 (80070057): L'élément portant ce nom est introuvable

Sub Generer_listes_preparation()

Application.ScreenUpdating = False
   
'Filtre avancé qui séléctionne les éléments cochés dans la feuille Choix matériaux et les copie dans la feuille Mise en préparation
    Columns("AH:AM").Hidden = False
    Sheets("Choix_materiaux").Activate
    Sheets("Choix_materiaux").Range("B34:G118").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Mise_en_preparation").Range("BW2:CB3"), CopyToRange:=Sheets("Mise_en_preparation").Range("B2:E2"), Unique:=False
    Sheets("Mise_en_preparation").Select
    ' Cacher la zone de critères
    Columns("BV:CC").Hidden = True
    ' Afficher ou masquer des cases à cocher
    Dim cellule As Range
    For Each cellule In Range("B3:B154")
        'Lorsque la valeur 0 est détecté dans la colonne B, le contenu de la cellule est effacé pour faire disparaitre la case à cocher
        If cellule.Value = "0" Then cellule.ClearContents
        'Lorsque la valeur est différente de 0 dans la colonne B, une case à cocher apparaît dans la colonne nommée "CHOIX"
        If cellule.Value <> "0" Then
        Sheets("Mise_en_preparation").Activate
        With ActiveSheet.Shapes("Check Box" & cellule.Row)
                 .DrawingObject.Value = False
                 .Visible = cellule <> ""
            End With
        End If
    Next
   
    'Uniformise la mise en page
    Range("B3:F54").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Rows("3:54").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A3").Select
End Sub