Sub classement_by_sheets()
Dim plage As Range, I&
For I = 2 To Sheets.Count
Set plage = Sheets("Base").Range("A4", Sheets("Base").Cells(Rows.Count, "A").End(xlUp)) 'on recupere la colonne des nom "A"
Set plage = Union(plage, plage.Offset(, I - 1)) 'on récupère la colonne correspondant au sport(nom du sheets de destination)et on les uni(union)
'Debug.Print plage.Address
plage.Copy Destination:=Sheets(I).[A2] 'on copy les colonnes unies dans le sheets respectif
With Sheets(I).Sort ' et on tri du plus grand au plus petit
.SetRange Sheets(I).Range("A1:B" & Sheets(I).Cells(Rows.Count, "A").End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next
End Sub