Bonjour,
J'ai deux feuilles Excel. Une vide que je souhaite remplir(Remplissage) et une (60601) avec les données à sélectionner.
Je sélectionne ma première ligne à copier et je voudrai que la sélection continue dans que chaque ligne du dessous n'est pas vide.

Comment faire (via une boucle peut être?)...?

Voici le début de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Sheets("60601").Select
Range("B7").Select
Rows(7).Select
 
'-> comment continuer ma séléction tant que la ligne du dessous n'est pas vide?
 
Selection.Copy
Sheets("Remplissage").Select
Range("A2").Select
ActiveSheet.Paste
 
End Sub