Bonjour,
J'essaye de copier l'ensemble des valeurs utilisées d'une feuille et de les coller à la suite d'une autre feuille.
Cependant bug à chaque fois à Sheets("Feuil3").Cells(i,1)...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim i As Integer
ActiveSheet.UsedRange.Select
Selection.Copy
 
For i = 1 To 300 Step 1
    If Sheets("Feuil3").Cells(i, 1) = "" Then Exit For
Next
 
Sheets("Feuil3").Cells(i, 1).Select
ActiveSheet.Paste