D'accord, j'essaie de faire tourner comme ça.
Mais j'avais parlé trop vite... Je n'avais pas fait attention qu'il ne lisait que les 9 premières lignes.
Mais du coup, j'ai vu où changer la valeur et fait le test sur les 20 premières lignes. Ça fonctionne.
Mais si je met 7700 lignes, il m'affiche une erreur d'exécution '13' - Incompatibilité de type.
Sub MeresFilles()
'
' MeresFilles Macro
'
'Rajoute des lignes en partant de la dernière jusqu'à la ligne 2
For Ligne = 7700 To 2 Step -1
'Si la valeur en V est supérieure à 0
If Cells(Ligne, 22).Value > 0 Then
For j = 1 To Cells(Ligne, 22).Value [Le débogage met cette ligne en évidence]
'Insertion de j lignes en dessous
Rows(Ligne + 1).Insert Shift:=xlDown
'Reprise des valeurs de A à K
For i = 1 To 18
Cells(Ligne + 1, i).Value = Cells(Ligne, i).Value
Next i
'Valeur en P = fille
Cells(Ligne + 1, 23).Value = "fille"
Next j
End If
Next Ligne
'
End Sub
Y a-t-il une limite dans le nombre de lignes exécutables ? Ou alors j'ai mal écrit quelquechose ?...