Revenir à ma position intiale

Bonjour à tous,

Contexte:

Je travaille sur un fichier Excel qui lance régulièrement à heure fixe des macros.

Problème:

A la fin de la macro je souhaiterai revenir à la position initiale avant le lancement de la macro.

Question:

Le code ci-dessous marche bien pour la cellule mais par pour l'onglet et le classeur. Pourriez-vous me corriger?

Sub test1()
    Dim ActualPositionB As String
    ActualPositionB = Application.ActiveWorkBook.Address
    Dim ActualPositionS As String
    ActualPositionS = Application.ActiveSheet.Address
    Dim ActualPositionC As String
    ActualPositionC = Application.ActiveCell.Address

'.........déroulement de la macro

    Range(ActualPositionB).Select
    Range(ActualPositionS).Select
    Range(ActualPositionC).Select
End Sub

D'avance merci pour vos contributions.

Cordialement

Salut,

essaye ça :

Sub test1()

Dim myRange As Range, mySheet As Worksheet, myWorkbook As Workbook

Set mySheet = ActiveSheet
Set myRange = ActiveCell
Set myWorkbook = ActiveWorkbook

'.........déroulement de la macro

myWorkbook.Activate
mySheet.Activate
myRange.Select

End Sub

Bonjour Game Over,

Merci pour tes contributions cela fonctionne parfaitement maintenant.

Bonne journée et à bientôt.

Cordialement