macro non appelée

bonjour à tous
j'utilisais ce code inspirer d'un code de Michel xld et modifier avec l'aide de PierreJean pour importer une plage, jusque là pas de probleme,j'ai ajouté une ligne de code pour l'appel d'une macro. Apparement cette macro n'ai jamais appelée ,donc j'ai utilisé F8 pour voir le déroulement et effectivement elle passe jamais par ces lignes
Call supprimer
End Sub
Lorsque j'ouvre l'editeur de macro l'execution de cette macro n'est pas à l'arret
merci de votre aide pour yvoir plus clair


Sub ImporterDepuisPlusieursClasseurs2()
Dim Cell As Range
Dim Y As Byte
Dim n As Integer
Application.ScreenUpdating = False

Columns("A:k").Select
Selection.ClearContents
Range("A1").Select
For Each Cell In Range("m1:m10") 'nom de mes classeurs
If Cell = "" Then Exit Sub

n = n + 1
With ActiveSheet.Range("a" & 5 + (n - 1) * 51 & ":k" & n * 51)

.FormulaArray = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "base" & "'!" & Range("a4:k55").Address(0, 0)

.Value = .Value

End With
Next Cell
Call supprimer
End Sub
-----------------------------------
Sub supprimer()
Dim NbLigne As Long, L As Long

NbLigne = Cells(65536, 1).End(xlUp).Row

For L = NbLigne To 2 Step -1
If Cells(L, 7).Value = "Réception_de" Then
Rows(L).Delete
End If
Next

End Sub