Petit problème de tri :)

Bonjour à tous et à toutes
Alors voilà après avoir écumer les centaines de post sur les tris et essayé d'adapter des macros en fonctions de mes besoins mais sans succès je me tourne vers vous 🙂

Alors voilà dans une feuilles j'ai un grand tableau avec plusieurs colonnes dont la colonne qui nous intéresse ici est une colonne intitulé Segment dans cette colonne on a 4 types de segment le 0, 1, 2, 3 ce que je souhaiterai c'est copié tout mon tableau dans une autre feuille en fonction de mes différents segments, donc j'aurai une feuille pour mon segment 0 une pour mon segment 1 , segment 2 et segment 3 j'aimerai que le code soit réadaptable par la suite pour changer de critère de tri, donc j'ai déjà essayé d'adapté un bout de code de Thierry que voici :


Option Explicit
Const ColToScan As Byte = 30 '<= Soit la colonne 'AD'...
Option Base 1
Sub Filtre()



Dim PlageSource As Variant
Dim PlageCible() As Variant
Dim i As Long, x As Long
Dim NbCol As Byte
Dim C As Byte


Sheets("TERMEAF").Activate

x = 1

With ActiveSheet
NbCol = .Range("A1").End(xlToRight).Column
PlageSource = .Range(Cells(1, 1), Cells(.Range("AD65536").End(xlUp).Row, NbCol))
End With

For i = 1 To UBound(PlageSource)
'If (Mid(PlageSource(i, ColToScan), 1, 1) = "2") Then
ReDim Preserve PlageCible(UBound(PlageSource), NbCol)
For C = 1 To NbCol
PlageCible(x, C) = PlageSource(i, C)
Next
x = x + 1
End If
Next i

Worksheets.Add 'Ici on crée un nouvelle feuille à la volée
ActiveSheet.Name = "Segment 0"
Range(Cells(1, 1), Cells(x, NbCol)) = PlageCible



End Sub

Mais j'ai une petite erreur d'indice qui n'appartient pas à la selection a la ligne "PlageSource="
J'espère avoir été clair 🙂 sinon faite le moi savoir, D'avance merci beaucoup

Cordialement
Jean-Mikaël