Bonjour le forum
. Je bloque depuis plusieurs heurs heures sur une boucle. J'aurai besoin de votre aide en fait la boucle s'arrête au 2ème résultat alors ça devrait être ça.
La boucle est la suivante :

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
Do While Not (IsEmpty(ActiveCell))
 
ActiveCell.Copy
Sheets("feuil6").Select
Range("C13").Select
If ActiveCell.Value = "" Then
ActiveSheet.Paste
Sheets("feuil4").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Copy
Sheets("feuil6").Select
Else:
Selection.End(xlDown).Select
ActiveCell.Offset(58, 0).Select
ActiveSheet.Paste
Sheets("feuil4").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Copy
End If
 
Loop

Je souhaite copier les donées de la feuille 4 pour la feuille6
Merci d'avance