Sub duplique()
Dim lig As Long, dup As Integer, dec As Integer, pos As Integer, cel
For lig = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
dup = Cells(lig, "A").Value
If dup > 1 Then
Rows(lig + 1).Resize(dup - 1).Insert
Rows(lig).Resize(dup).FillDown
cel = Cells(lig, "I").Value
pos = InStr(cel, " ")
For dec = 1 To dup - 1
Cells(lig + dec, "I").Value = Left(cel, pos - 1) & Chr(64 + dec) & Mid(cel, pos)
Next dec
End If
Next lig
End Sub