Optimiser une macro

Bonjour,
J'ai créé une macro qui parcourt une colonne C dans un classeur et, à condition que la valeur d'une colonne adjacente soit remplie, recopie le contenu de cette colonne C dans un autre classeur.
Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub ImportAvisIC()   Set WSdest = Workbooks("11 Tableau de bord S48.xlsx").Worksheets("VENTE")   Set WSdep = Workbooks("11 Tableau de bord S47.xlsm").Worksheets("VENTE")   Set PlageICdep = WSdep.Range("S:S")   Macolonne = PlageICdep.Column For Each c In PlageICdep Maligne = c.Row If WSdep.Cells(Maligne, Macolonne - 4).Value = "SL" Or WSdep.Cells(Maligne, Macolonne - 4).Value = "CP" Then AvisIC = c.Value TraitementADV = WSdep.Cells(Maligne, Macolonne + 1).Value WSdest.Cells(Maligne, Macolonne).Value = AvisIC WSdest.Cells(Maligne, Macolonne + 1).Value = TraitementADV End If If WSdep.Cells(Maligne, 1).Value = "" Then Exit For Next     End Sub

---

Or, cette macro est très lente et je ne comprends pas trop pourquoi parce que ça m'a pas l'air très lourd en calcul.
J'ai fait un test qui m'a permis de voir qu'il faut à peu près une minute pour que la macro atteigne la 100ème ligne.
Avez-vous un conseil à prodiguer pour me permettre de coder cette procédure de façon plus optimale ?

Bonjour,
S'il s'agit de recopier une ou plusieurs colonnes d'une liste de données suivant critères (à condition que la valeur d'une colonne adjacente soit remplie), je ne peux que te conseiller d'utiliser le filtre avancé d'excel (méthode AdvancedFilter de l'objet Range), pratiquement une ligne de code et une ou deux secondes pour l'exportation

Pour en savoir plus sur le sujet Les filtres avancés ou élaborés dans Excel

Ca n'a pas l'air de correspondre à mon cas.
Ma colonne de départ comporte disons 1000 lignes, les mêmes que ma colonne destination.
Je cherche à copier les valeurs de la colonne de départ correspondant en effet à un critère (disons que 400 lignes correspondent à ce critère réparties entre la ligne 1 et la ligne 1000, par exemple lignes 1, 3, 7, 11...). Je veux recopier ces valeurs dans la colonne destination au même endroit (ligne 1, 3, 7, 11 etc...)
Avec ton tuto, je comprends que la recopie va aboutir à une colonne de 400 lignes uniquement (ligne 1, 2, 3, ..., 400)