Ajouter une ligne à une variable de type tableau

Bonjour,

j'ai réalisé une macro qui fonctionne bien mais qui prend un temps très long à tourner.

Mon idée pour l'optimiser est d'utiliser une variable tableau, malheureusement je suis pas très à l'aise avec ce type de variable et je ne sais pas si c'est faisable de transposer ma macro en utilisant un tableau.

Ma macro fait un test sur une cellule de chaque ligne et si le test est vrai insert une nouvelle ligne en dessous en recopiant les valeurs de la ligne testée.

Voici l'extrait de ma macro qui réalise cette opération

[code]Sub part()
'Dédoublement des lignes internes pour pouvoir intégrer un prix part S et un prix part Collectivité
For j = 0 To 20
    If IsEmpty(Range("A7").Offset(j)) = True Then
        Exit For
    End If
    If Range("G7").Offset(j) = "Interne" And IsEmpty(Range("I7").Offset(j)) = True Then
        Rows(j + 7).Select
        Selection.Copy
        Rows(j + 8).Select
        Selection.Insert Shift:=xlDown
        Range("I7").Offset(j).Select
        ActiveCell.FormulaR1C1 = "S"
        Range("I8").Offset(j).Select
        ActiveCell.FormulaR1C1 = "Collectivité"
    End If
Next j
End Sub

[/code]

Est-ce que cette manipulation est possible avec des variables tableau?

Merci pour vos retours.

Bonsoir,

avez vous un fichier à joindre ?

Car vous parlez d'ajouter une ligne en dessous de celle testée, mais au vu du code cela se fait 8 ligne en dessous, non ?

@ bientôt

LouReeD