Bonjour a tous,
J'espére que vous allez Bien!!
 
Voila j'ai un code vba qui a était créé sous excel 2007 et qui ne fonctionne pas sous excel 2003 
est ce qu'il serais possible de le modifier pour qu'il fonctionne sous excel 2003?
Voici le code:



Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    Range("B3:N22").Select
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add(Range("C3:C22"), _
                                                            xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, _
                                                                                                                                     255, 255)
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("B3:B22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("H3:H22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("classement").Sort.SortFields.Add Key:=Range("J3:J22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("B2:N22")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    Range("A1").Select
    Application.ScreenUpdating = True

End Sub

 
Merci  Beaucoup

Phil