Bonjour à tous,

J'en appele à vous car je ne connais pas le Visual Basic et j'ai besoin d'un coup de main pour accoucher d'une macro Excel:
Pour résumer, je dois faire une boucle (de 100 itérations: compteur de 7 à 197 qui correspond aux nombre de lignes de la feuille "Cion") qui copie et colle des données d'une feuile à une autre du classeur.
Seules les cellules que j'ai mis en rouge dans le code doivent être incrémenté (passage à la ligne inférieure). En gros le code ça donne ça et il faut que la macro modifie les variables en rouge (qui correspondent à des cellules Excel), je voudrait ensuite écrire dans les cellules A8, puis A9, etc.

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
22
23
24
25
26
27
28
29
30
31
Sub Cion()
Dim NumLigne As Integer
Set NumLigne = 7
While (NumLigne < 107)
   Range(A+NumLigne).Select
   Application.CutCopyMode = False
  		Selection.Copy
   Sheets("Suivi").Select
   Range("H10").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Range("I10").Select
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("Cion").Select
   Range("K+NumLigne ").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Sheets("Suivi").Select
   Range("J10").Select
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("Cion").Select
   Range("F+NumLigne ").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False		
   
   NumLigne = NumLigne + 1
Wend

End Sub
Je ne sais pas si je suis très clair mais je fais de mon mieux

Merci pour votre aide !