Passer en feuilles actives

Bonjour,

Besoin d'un petit coup de main pour modifier cette macro :

Sub Macro1()

Range("A2").Select

ActiveWorkbook.Worksheets("ce que j'ai").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("ce que j'ai").Sort.SortFields.Add Key:=Range( _

"H2:H8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

ActiveWorkbook.Worksheets("ce que j'ai").Sort.SortFields.Add Key:=Range( _

"G2:G8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

ActiveWorkbook.Worksheets("ce que j'ai").Sort.SortFields.Add Key:=Range( _

"I2:I8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("ce que j'ai").Sort

.SetRange Range("A1:AA8")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

En fait j'aimerais que cette macro s'applique aux "feuilles actives" et non pas aux feuilles qui sont nommées dans l'exemple, et malgré plusieurs éssais je n'arrive pas à le faire.

quelqu'un aurait il la bonne formule ??

Merci d'avance.

Bonjour,

Il te faut remplacer

ActiveWorkbook.Worksheets("ce que j'ai")

par

ActiveSheet