Sub toto()
Dim i&, l&, c&, col$, t()
col = InputBox("Quelle est la colonne à traiter ?" & vbLf & "(de A à XFD, en majuscules ou en minuscules)", "Choisir une colonne.")
On Error Resume Next
c = Feuil1.Columns(col & ":" & col).Column
If Err.Number Then MsgBox """" & col & """ n'est pas une référence valide de colonne.": Exit Sub
If MsgBox("Vous avez choisi la colonne " & """" & UCase(col) & """." & vbLf & "Continuer ?", vbOKCancel, "Confirmation...") = vbCancel Then Exit Sub
With Feuil1.Columns(c)
.Select
l = .Cells(.Rows.Count).End(xlUp).Row
t = Range(.Cells(1), .Cells(l)).Value
With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
For i = l To 3 Step -1
If Not IsEmpty(t(i, 1)) Then If AscW(t(i, 1)) <> 9658 And IsEmpty(t(i - 1, 1)) Then .Cells(i).Value = ChrW(9658) & .Cells(i).Value: i = i - 1: .Parent.Rows(i).Delete
Next
With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End With
End Sub