Sub ArrierePlan()
'menu Exécution => Réinitialiser pour arrêter la macro
Dim t#, tablo, resu(), i&
ThisWorkbook.Saved = False
Do
t = Timer + 0.5
While Timer < t And t < 86400: DoEvents: Wend 'attente de 0,5 seconde
If Not ThisWorkbook.Saved Then
With Feuil1.[A1].CurrentRegion.Columns(6) 'CodeName de la feuille à adapter
tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
ReDim resu(1 To UBound(tablo), 1 To 1)
For i = 2 To UBound(tablo)
If tablo(i, 1) <> "" And .Cells(i).Comment...