OUPS
Attends j'avais zappé une partie de ta question
J'étais resté sur le pbe de délai et pas sur la question toute la colonne
Il faut donc modifié la ligne
If Not Intersect(Target, Range('a1:a1000')) Is Nothing Then
par
If Not Intersect(Target, Range('A:A')) Is Nothing Then
Oups le fichier avec la nouvelle modif [file name=Classeur6_20051201115355.zip size=6279]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur6_20051201115355.zip[/file]