Option Explicit
Sub SupLigneBis()
Dim choix As Variant, i%, j%, clé As Variant, x&, T() As Variant
With ActiveSheet
choix = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value
clé = [e2].Value
For i = LBound(choix) To UBound(choix)
If choix(i, 1) <> clé Then
x = x + 1: ReDim Preserve T(1 To x): T(x) = choix(i, 1)
End If
Next i
.[B:B,c3:c25].ClearContents
.[B1].Resize(UBound(T)) = Application.Transpose(T)
.[C1].Resize(, UBound(T) ) = T
End With
End Sub