Bonjour,
J'ai créé cette macro pour supprimer les espaces de début et de fin de chaque cellule (de toute une colonne : 12000 lignes)
Comment accélérer la macro, ce n'est pas rapide... ?? Existe-t-il un code plus rapide ?
J'ai créé cette macro pour supprimer les espaces de début et de fin de chaque cellule (de toute une colonne : 12000 lignes)
Comment accélérer la macro, ce n'est pas rapide... ?? Existe-t-il un code plus rapide ?
VB:
Sub SupEspace()
Dim plage, cellule
Set plage = Range("D2:D12000")
For Each cellule In plage
cellule.Value = Trim(cellule.Value)
Next cellule
End Sub