Bonjour, je chercher a faire une boucle avec une plage qui s'incrémente dans le FOR


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Nblign=10
 
For i=1 to Nblign
 
 If Cells(i, 27) <> "" Then
        Rows(i + 1).Insert
        ActiveSheet.Rows(i).Copy ActiveSheet.Rows(i + 1)
 
        Nblign = Nblign + 1
        i = i + 1
        End If
next i
le code est super mais si Nblign=10 au départ, même si je l'ajuste a la hausse dans le code, la procédure s'arrête à nblign=10 et pas à nblign=12

merci de votre précieuse aide