Salut VH, JCA06, le forum,
Voici une macro à placer dans la feuille contenant ton tableau (va dans Visual Basic Editor [Alt]+[F11], en haut à gauche, double-clique dans la feuille souhaitée, dans le grand cadre blanc à droite, colle le code ci-dessous).
Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque modification
If Target.Column = 1 Then 'n'agit que dans la colonne A
If Target.Value <> "" Then 'si la cellule est non vide
'copie la formule de la cellule du dessus de la colonne B
Target.Offset(-1, 1).AutoFill Destination:=Range(Target.Offset(-1, 1), Target.Offset(0, 1))
Else 'sinon (si tu effaces la date par exemple)
Target.Offset(0, 1).Value = "" 'efface la formule
End If
End If
End Sub
À plus,
Robert