Optimiser le temps de réponse de macro VBA supprimer lignes

Bonjour,

Merci de votre retour, je met toujours 24 secondes après avoir mis en place votre conseil.

J'ai rentré le code suivant:

Sub Supprimerligne()

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

 Dim i As Long

 With Sheets("bipage_moules")
  For i = 3000 To 12 Step -1
   If .Cells(i, 11).Value = "A supprimer" Or .Cells(i, 11).Value = "" Then Rows(i).EntireRow.Delete
  Next i
  
 
  
 End With

Dim fichier As Workbook
Dim onglet As Worksheet
Dim extrait As Worksheet
Dim derniere_ligne As Long

'identifier le fichier et l'onglet

Set fichier = ActiveWorkbook

Set onglet = fichier.Worksheets("bipage_moules")

Set extrait = fichier.Worksheets("Reparation")

'trouver la dernière ligne du tableau

derniere_ligne = extrait.Cells(Rows.Count, 1).End(xlUp).Row + 1

'copier coller les cellules

With extrait

.Cells(derniere_ligne, 1) = onglet.Cells(6, 3)

End With

 Application.ScreenUpdating = True
 
  Application.Calculation = xlCalculationAutomatic
 
End Sub

J'ai essayé sur une nouvelle feuille d'un nouveau classeur, il met également peu de temps.

Je pense que le fait d'avoir d'autres macros le ralentisse.

As-tu des idées?

Merci par avance.