J'ai créé le code VB suivant pour redimensionner la ligne d'en-tête lorsqu'une cellule se trouve dans une plage (B2:B1500), car les valeurs de date supérieures au 28/12/2014 entraîneraient l'affichage dans l'en-tête d'un avertissement indiquant que ces dates, dans une feuille de temps, passeraient à la semaine 1 de 2015 :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub