Sub es()
Dim t(), a As Variant, r As Long, c As Byte
Set a = [i:l].Find(What:="Dernières cotes", LookIn:=xlValues, LookAt:=xlWhole)
If a Is Nothing Then
MsgBox "Non trouvé"
Else
r = Cells.Find("*", , , , xlByRows, xlPrevious).Row
c = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Cells(a.Row + 1, 1).Resize(r - a.Row, c).Sort Key1:=Cells(a.Row + 1, a.Column), Order1:=xlAscending, Header:=xlGuess
t = a.Offset(1, 0).Resize(r - a.Row, 1).Value
Sheets("donnée").[c2].Resize(, UBound(t, 1)) = Application.Transpose(t)
End If
End Sub