Est-ce que quelqu'un saurait identifier pourquoi mon code VBA est si long lorsque je le lance (en moyenne 5 minutes entre le moment où je clique "run" et le moment où il a terminé ?).

Voilà le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub PODM()
'
' PODM Macro
' Macro recorded 31/07/2008 by Leslie Petrequin
'
 
    Sheets("PODM3").Select
 
    Cells.Select
    Selection.Delete Shift:=xlUp
 
    Sheets("PODM2").Select
    ActiveWindow.ScrollRow = 1
    Columns("D:I").Select
    Selection.Copy
 
    Sheets("PODM3").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
    Application.Run "efface_A_vide"
 
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "concatene"
    With ActiveCell.Characters(Start:=1, Length:=9).Font
        .Name = "Arial"
        .FontStyle = "Italic"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 2
    End With
 
    Sheets("PODM3").Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=CLEAN(RC[-2]&RC[-1])"
    Selection.AutoFill Destination:=Range("C2:C" & Range("A2").End(xlDown).Row), Type:=xlFillDefault
 
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
    Columns("C:C").Select
    ActiveWorkbook.Names.Add Name:="concatenecountryskugen", RefersToR1C1:= _
        "=PODM3!C3"
 
End Sub
 
 
Perut-être est ce que ça vient de ce bout de code qui correspond à     "efface_A_vide" ?
Sub efface_A_vide()
Application.ScreenUpdating = False
 
Dim l As Integer
For l = Cells(65256, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
 
End Sub

Merci d'avance pour votre aide