Retourner sur la cellule active d'avant la macro

bonjour à vous,

Voici ce que j'essaye de faire en vain. Je voudrais appliquer une macro et que le curseur revienne sur la feuille et la cellule ou il était avant la macro (effacement d'une ligne sur une autre feuille).

Voici le code que j'ai essayé sans succès:

Dim PlageActive As Range

Dim FeuilleActive As Range

Set FeuilleActive = ActiveSheet

Set PlageActive = ActiveCell.Address

Sheets("Estimation temps").Activate

Range("A" & Rows.Count).Select

Selection.Delete Shift:=xlUp

'ça c'est la macro qu j’utilise

FeuilleActive.Activate

PlageActive.Activate

'ça c'est les essais de retour

End Sub

ça bloque sur les déclaration.

Cordialement.

Finalement en fouillant dans le site j'ai trouver quelque chose qui me va.

Dim varFeuille As Worksheet

Set varFeuille = ActiveSheet

'

Sheets("Estimation temps").Activate

Range("A" & Rows.Count).Select

Selection.Delete Shift:=xlUp

Range("a1").Select

varFeuille.Select

Range("A1").Select

End Sub

ça me va. Merci le site

Bonjour et bienvenue sur le forum

Essaie cela :

Sub ess()
    Dim PlageActive As Range
    Dim FeuilleActive As Worksheet
    Set FeuilleActive = ActiveSheet
    Set PlageActive = ActiveCell
     Sheets("Estimation temps").Activate
     Range("A" & Rows.Count).Select
     Selection.Delete Shift:=xlUp
    'ça c'est la macro qu j’utilise
     FeuilleActive.Activate
     PlageActive.Activate
    'ça c'est les essais de retour :wink:
End Sub

c'est exactement ça. Merci beaucoup.

Je n'étais pas très loin mais c'est parfait maintenant.