Sub Resultat()
Application.ScreenUpdating = False
Range("C2:D" & Rows.Count).ClearContents 'RAZ
With [A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
With .Rows(2).Resize(.Rows.Count - 1)
.Columns(4) = .Columns(1).Value
.Columns(4).Offset(.Columns(4).Rows.Count) = .Columns(2).Value
With .Columns(4).Resize(2 * .Columns(4).Rows.Count)
.RemoveDuplicates 1, Header:=xlNo 'supprime les doublons
.Replace "a", "", xlPart 'supprime les "a"
.Sort .Cells(1), xlAscending, Header:=xlNo 'tri
With .Resize(Application.CountA(.Cells))
.Columns(0) = "=RC[1]&""a""" 'rajoute les "a"
.Value = .Columns(0).Value 'copie les valeurs
.Columns(0).ClearContents 'RAZ
End With
End With
.Columns(3).FormulaR1C1 = "=REPT(RC1,RC1=RC2)"
.Columns(3) = .Columns(3).Value 'supprime les formules
End With
End With
End Sub