Bonjour,

Voilà après deux jours de recherche sur le net j'ai trouvé quelque chose qui me semble correcte mais le problème c'est que ma macro tourne en boucle sans prendre fin.

Voilà l'explication:
J'ai 5 collones.
A;B;C;D;E

Je voulais que si la cellule E5 est non vide alors il me copier les cellules de A4 a D4 et me la colle a coté de la cellule E5 en dessous de la ligne précédente.
Je veux qu'il face ce controle sur toute la collone E en sachant qu'elle n'à pas toujours le même nombre de cellule.

Voici le code que j'ai trouvé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim Cell As Range
     For Each Cell In Range("E4:E9999")
                If Cell.Value <> "" Then Range("A4 : D4").Select
                Selection.Copy
                Range("A" & Range("A65535").End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Next Cell
Le problème ces qu'il s'ârrête jamais. Il continue a coller même si la cellule EX est vide.

Monde code est faux? une autre sollution à proposer ?

J'attend avec impatiente votre aide.

Cordialement