Rester sur la même page pendant l'exécution de la Macro

Bonjours les génies,

je sais que ce sujet a été traité plusieurs fois, mais je n'arrive pas à le résoudre ,je viens sur ce forum demander votre aide.

En fait j'ai plusieurs feuilles ,sur chaque feuille j'ai des indicateurs, ces indicateurs changent en fonction d'un critère sélectionné par une case à cocher.

Mon problème quand je coche la case pour exécuter ma macro je ne reste pas sur la feuille depuis laquelle j'ai coché le critère mais il bascule vers la feuille données.

Voici mon code :

Sub Choisirdonnee()

Application.ScreenUpdating = False 'bloque l'affichage mettre au début

Sheets("Données").Select

Range("T2").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Initialisation!C[1]:C[2],2,FALSE)"

Selection.AutoFill Destination:=Range("T2:T" & Range("A65536").End(xlUp).Row)

ActiveWorkbook.RefreshAll

Calculate

Application.ScreenUpdating = True

End Sub

Merci de votre soutien.

Bonjour,

Il n'y a pas de problème là-dedans, VBA fait ce que tu lui demandes, donc le seul responsable...

Tu fais disparaître tout Select de ton code, c'est à dire : tu écris vraiment en VBA, et le problème disparaîtra de lui même !

Cordialemnt

Merci de votre retour ,

Il faudra le remplacer par quelle fonction ? Pouvez me donner plus de détails svp ,Merci pour votre aide

En raccordant les objets à leurs parents...

Sub Choisirdonnee()
    Application.ScreenUpdating = False 'bloque l'affichage mettre au début
    With Sheets("Données")
        .Range("T2").FormulaR1C1 = "=VLOOKUP(RC[-8],Initialisation!C[1]:C[2],2,FALSE)"
        .Range("T2").AutoFill .Range("T2:T" & Range("A65536").End(xlUp).Row)
    End With
    ActiveWorkbook.RefreshAll
    Calculate
    Application.ScreenUpdating = True
End Sub

Meeerci beaucoup c'est TOP