Macro ne s'exécute pas dans la bonne feuille

Bonjour à tous,

Je reviens vers vous car j'ai un petit souci.

J'ai écrit une macro pour réaliser un tri dans la feuille data de mon classeur.

Cette macro sélectionne à partir de la ligne 4 les colonnes A jusqu’à BI jusqu’à la dernière ligne remplie (car ça change tous les jours) et trie les lignes selon la colonne D par ordre décroissant.

Mon souci c'est qu'elle fonctionne sur n'importe qu'elle feuille active ce qui est embêtant et qu'elle ne se lance pas depuis une feuille où je mets mes boutons de macro.

Merci d'avance

Bonjour

en indiquant la Feuille dans le Code

Sub triRATIOFITC()
Dim DerniereLigneTRIRATIOFITC As Long
Sheets("Data").Activate
With Sheets("Data")
DerniereLigneTRIRATIOFITC = .Range("D65536").End(xlUp).Row
Range("A4:BI" & DerniereLigneTRIRATIOFITC).Sort key1:=Range("D4:D" & DerniereLigneTRIRATIOFITC), order1:=xlDescending, Header:=xlNo
End With
End Sub

Cordialement

Un grand merci, je cherche depuis deux jours^^