Mes données sont réparties sur trois lignes. Comment les trier sans séparer ces groupes ?

Tu peux utiliser cette macro

sub TriLie() 'Flo Cabon d'après une macro d'Isabelle, MPFE
 Dim NbLié As Integer
 Dim nblignes As Integer
 Dim CleTri As Variant
 Dim I, n
 'les deux premières colonnes sont remplies, les deux suivantes doivent être vides
 NbLié = InputBox("Nb de lignes par groupe de tri ?", , 3)
 
 
 Range("A1").Select
 Selection.CurrentRegion.Select
 nblignes = Selection.Rows.Count
 
 For I = 1 To nblignes
 If I Mod NbLié = 1 Then CleTri = Cells(I, 1).Value
 Cells(I, 3) = CleTri
 Cells(I, 4) = I
 Next
 Range("A1").Select
 Selection.Sort Key1:=Range("c1"), Order1:=xlAscending, _
 Key2:=Range("d1"), Order2:=xlAscending, _
 Header:=xlNo, OrderCustom:=1, _
 MatchCase:=False, Orientation:=xlTopToBottom
 Range("C:\d").ClearContents
 end sub