Bonjour,

J'ai 2 macros :

* la 1ière me permet de faire clignoter une cellule ou doit se passer la saisie :

Sub versfeuille1()

Sheets("Feuil1").Select

Range("B3").Select

Selection.ClearContents

Do While IsEmpty([B3])

If [B3].Interior.Color = vbGreen Then

[B3].Interior.Color = vbYellow

Else

[B3].Interior.Color = vbGreen

End If

DoEvents

Loop

[B3].Interior.Color = vbWhite

End Sub

Elle fonctionne parfaitement.

* La seconde me permet d'accéder à la première cellule vide (En descendant) de la colonne B :

Sub dernier()

Range("B65536").End(xlUp).Offset(1, 0).Select

End Sub

Fonctionne parfaitement elle aussi.

En feuille 2 j'active la macro 1

Je n'arrive pas à faire clignoter la cellule dans laquelle doit se faire la saisie. B3 de la première macro devient B4 puis B5... d'ou la nécessité de faire varier la cellule cible de la première macro.

Je bloque sur une syntaxe certainement toute bête. Pouvez vous m'aider ?

Fichier : https://www.cjoint.com/c/IHppRij7YQK

Merci d'avance.

EDIT : je viens de voir que sur les feuilles existantes et sur les nouvelles feuilles la cellule B3 clignote systématiquement. Euh ??? Je suis pourtant positionné en feuil1. En positionnant la macro dans feuil1 plus de pb. Un de réglé.

Re,

Trouvé une mine d'info avec ce fichier : http://boisgontierj.free.fr/fichiers/jb-Curseur.xls

Si cela peut en aider certains.

A+