Bonjour,
Je cherche à copier toutes les cellules des colonnes A et B à partir de la ligne 6 jusqu'à la dernière cellule non vide de la colonne A. Pour cela, j'utilise ce programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    Dim i, j As Integer   
        i = 6   
    Do While (Range("A" & i).Value <> "")
         Range("A" & i & ":B" & i).Select
        Selection.Copy
        Sheets("Récap_3ème tri_V_élo1").Select
        Range("A" & i + 7&).Select
        ActiveSheet.Paste
         i = i + 1          
    Loop
Mon problème est qu'excel sort de la boucle après la 1ère ligne qu'il copie alors que ce n'est pas la dernière cellule non vide.
Est ce que quelqu'un aurait une solution ?
Merci d'avance.