bonjour , j'essais de creer un programme me permettant pour chaque ligne de mon tableaux pour laquelle une cellule est differente de la meme cellule de la ligne superieur, de copier et d'inserer cette ligne 8 fois en dessous

ex :

li 1 = 1
li 2= 1
li 3 =2
li4= 2

resultat attendu
li 1 = 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 2= 1
li 3 =2
li4= 2
li4= 2
li4= 2
li4= 2
li4= 2
li4= 2
li4= 2
li4= 2
li4= 2
voici mon programme mais celui-ci ne marche pas :
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
Private Sub CommandButton1_Click()
Dim i As Integer
For i = [468] To [2] Step -1
If Cells(i, 3) <> (Cells(i - 1, 3)) Then
Rows(i + 1).Select
ElseIf Cells(i, 3) = Cells(i + 1, 3) Then
Rows(i & ":" & i).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Rows(i & ":" & (i + 1)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
Rows(i & ":" & (i + 4)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
End If
Next i
End Sub
merci d'avance pour tout aide qui pourrait m'être apportée.

Cordialement