Ave,
Tu pourrais CONSIDERABLEMENT raccourcir ton code car une seule ligne devrait suffire….
Le principe :
Il ''suffit'' de récupérer, d'une part, le nom du bouton sur lequel on clique (Application.Caller) et, d'autre part, l'adresse de la cellule dans laquelle il est inclus à l'aide de la propriété ''TopLeftCell''
Il ''suffit'' donc de dessiner UN SEUL bouton, lui affecter la macro et le copier/coller dans les cellules de ton choix pour que, à l'exécution de la macro, soit inscrite l'heure sytème dans la colonne d'à côté
La ligne de code : Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address)(1, 2) = Time
Ci-joint un exemple que je te laisse adapter à ton projet
PS : Il faut, évidemment, que le bouton soit entièrement contenu dans une cellule
Un truc au passage : appuyer d'abord sur la touche Alt puis dessiner le bouton. Il épousera strictement le contour de la cellule !
PS bis : il reste quelques trucs à éventuellement peaufiner mais il faut bien que tu aies quelque chose à faire...
AV [aaa] [file name=DepartsArrivees.zip size=7162]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DepartsArrivees.zip[/file]