Selectionner une cellule

Bonjour

J'ai créé ce code pour effacer des cellules ,il fonctionne bien

Ce que je voudrais c'est qu'une fois les cellules effacées ,le curseur se positionne automatiquement sur la cellule D3 quand on active la feuille

Je vous remercie

Sub effacer_les_resultatsTeT()
If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) <> vbYes Then Exit Sub
For i = 1 To 10
    Sheets("Tour" & i).range("G3:I66,P3:R66").ClearContents
range(D3).Select 'c'est cette ligne qui ne va pas
Next i

End Sub

Bonjour Joco7915, le forum,

A tester:

Sub effacer_les_resultatsTeT()
 If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) <> vbYes Then Exit Sub
   For i = 1 To 10
    With Sheets("Tour" & i)
    .Activate
    .Range("G3:I66,P3:R66").ClearContents
    .Range("D3").Select
    End With
   Next i
End Sub

Cordialement,

Bonjour

Merci pour ton aide

Cordialement