Private Sub CommandButton1_Click()
Dim Col As Long
Dim premjanv As Date
[COLOR=SeaGreen]'ici changer l'année quand nécessaire[/COLOR]
premjanv = DateSerial([B]2008[/B], 1, 1)
Col = Switch(Date < premjanv, 6, Date > premjanv, 8)
Cells(65536, Col).End(xlUp).Offset(1, 0).Value = TextBox1
End Sub