Après discussion sur un autre forum, nous sommes arrivés à ce code là :
Private Sub Worksheet_Change(ByVal Target As Range)
Colonne = Target.Column
If Target.Row > 5 Then
Select Case Colonne
Case 1, 3, 5
For Each Cell In Target
Cells(Cell.Row, "B") = Date...