Sub Fabio()
' Excel-lent le 13/09/2007
Dim NbLigneAInserer As Integer
Dim OuInsererLigne As Integer
Dim OuMettreValeur As Integer
Dim Valeur As String
OuInsererLigne = 10
i = 1
For i = 1 To 9
NbLigneAInserer = Cells(i, 1)
Rows(OuInsererLigne & ":" & OuInsererLigne + NbLigneAInserer + 1).Insert Shift:=xlDown
OuMettreValeur = OuInsererLigne
OuInsererLigne = OuInsererLigne + NbLigneAInserer
For z = 1 To NbLigneAInserer
Valeur = Cells(i, 2)
Cells(OuMettreValeur, 1) = Valeur
OuMettreValeur = OuMettreValeur + 1
Next z
Next i
End Sub