XL 2010 Optimisation boucle vba

[Profane]

Bonjour à tous,
voila mon soucis, j'ai une macro vba qui fonctionne tres bien...MAIS
elle est trop lente sur un fichier de 55000 lignes,
j'aimerai l'optimiser (actuellement = 15mn de traitement.....) , je pense que l'utilisation de tableau (Lbound,Ubound) m'aiderait mais je ne connais pas trop l'utilisation
d'avance merci pour votre aide
voici la macro :

Sub SuppEspace()
k = Timer
' Arret du calcul automatique
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim L As Integer
Dim WS1
Dim i As Long
'on declare les variables
Set WS1 = Sheets("Export")


For L = 106 To 107 ' on scrute 2 colonnes

If WS1.Cells(1, L) = "tintin v2" And WS1.Cells(1, L + 1) = "Milou v2" Then
With WS1
For i = WS1.Range("A65536").End(xlUp).Row To 2 Step -1
If WS1.Range("A" & i).Value <> "" Then
WS1.Range("DB" & i) = Application.Trim(Range("AO" & i))
WS1.Range("DC" & i) = Application.Trim(Range("BM" & i))
WS1.Range("DD" & i) = Application.Trim(Range("AC" & i))

End If
Next i
End With
End If

Next L

'Calcul automatique
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox ("Durée : " & Timer - k)
End Sub

 

[mapomme]

Bonsoir Profane,

Un fichier joint eût été plus qu’apprécié 😎.

Voir la macro Supprespace() dans le fichier joint.

Rem : les 15 minutes d’exécution de votre macro initiale me semblent étrangement élevées. Si on fait tourner votre macro sur les données du fichier joint, le temps d'exécution est inférieur à 15 secondes.

 

[Profane]

Bonjour Mapomme,
oui en effet cela venait de la requête SQL qui alimente le fichier, il fallait que j'enregistre le fichier avant de lancer la macro, je cherche encore comment éviter ce "désagrément"
Cordialement