Macro Tri à modifier

Bonjour toutes et tous,

Je reviens vers vous pour un autre code à modifier

Ce code fonctionne très bien dans la feuille du mois de septembre,mais quelle ligne de code changer pour l'adapter à tous les mois de l'année?

j'ai penser faire douze fois le code dans chaque feuille avec un mois différent, mais ce n'est pas digne d'un vétéran de 1940 (année de ma naissance)

Sub Triage_Mois()
                        ' Ne fonctionne que avec le mois de septembre
    Range("AB3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("AB3:AG33").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add Key:=Range( _
        "AB3:AG3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("AB3:AG33")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AF3").Select
    ActiveCell.FormulaR1C1 = "^Ninon"
    Range("AF4").Select
End Sub

Je souhaiterais utiliser la fonction feuille active au lieu du nom de la feuille .Est-ce possible ?

Merci de votre gentillesse habituelle pour un papy de 75 ans

Amicalement à vous tous

Pierrot

Une blague belge pour la 1ère bonne réponse

Pierrot

bonjour,

à tester

Sub Triage_Mois()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("AB3:AG3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("AB3:AG33")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AF3").FormulaR1C1 = "^Ninon"
    Range("AF4").Select
End Sub

Bonjour, h2SO4

C'est parfait, mais puis-je coller ce code dans le ThisWorkbook pour ne pas devoir le coller dans toutes les feuilles.?

Un tout grand merci pour ta réponse et comme promis pour la 1ère bonne réponse, tu as droit à une histoire belge je te l'envoies par message privé

Amicalement

Pierrot

Oui, tu peux coller dans thisworkbook ou dans un nouveau module

Merci beaucoup et bonne journée

Amicalement

Pierrot