Bonjour, salut eriiic !
2ème possibilité dérivée du code proposé par eriiic, à tester :
Sub initiale()
Dim datas, lig As Long, ini As String
datas = [A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row).Value
For lig = UBound(datas) To 1 Step -1
If ini = "" Then ini = Left(datas(lig, 1), 1)
If Left(datas(lig, 1), 1) <> ini Then
Rows(lig + 1).Insert Shift:=xlDown
Cells(lig + 1, 1) = ini
ini = Left(datas(lig, 1), 1)
End If
Next lig
End Sub