programme pemettant compter le nombre de valeur

Je veux faire un programme pemettant de : -compter le nombre de valeur pour chaque ligne
- insérer nombre de nouvelle ligne en dessous de chaque ligne égal au nombre de valeur de chaque ligne

Code/

Sub Macro18()
'
' Macro17 Macro
' Macro enregistrée le 26/07/2006 par Air France
Dim Plage As Range, Cellule As Range, Z, zone, Plage1 As Range, Plage2 As Range
Dim Cpt As Long
Dim I As Integer
Set Plage1 = Range("A1", [A1].End(xlToRight))
Cpt1 = Plage1.count
selection = Plage1.Select
Set Plage2 = Range("A2", [A2].End(xlToRight))
Cpt2 = Plage2.count
selection = Plage2.Select
Set Plage3 = Range("A3", [A3].End(xlToRight))
Cpt3 = Plage3.count
selection = Plage3.Select

For I = 1 To Plage1.count
Rows("1:1").Select
selection.Insert Shift:=xlDown
Rows("1:1").copy
Rows("1:1").Paste
Next

For I = 1 To Plage2.count
Rows("2:2").Select
selection.Insert Shift:=xlDown
Rows("2:2").copy
Rows("2:2").Paste
Next

For I = 1 To Plage3.count
Rows("3:3").Select
selection.Insert Shift:=xlDown
Rows("3:3").copy
Rows("3:3").Paste
Next

End Sub

/Code


Je l'ai fais pour 3 ligne je voudrais le faire pour un nombre de ligne qui peut varier
je suppose qu'il faut utiliser des boucle qui peut me donner un coup de pouce