Do While ActiveCell <> ""
Lettre = Left(ActiveCell, 1)
ActiveCell.EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Clear
Selection.Rows.AutoFit
ActiveCell = Lettre
ActiveCell.Font.Bold = True
Do While Left(ActiveCell, 1) = Lettre
ActiveCell = ActiveCell & String(130, ".")
ActiveCell.Offset(1, 0).Select
Loop
Loop