Sub En_cours()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("b:b")
If c.Formula = Date Then c.Delete 'A la place de "Date", mentionner ici la formule à employer
Next
For Each c In Range("a:a")
If c = "En Cours" Then c.Offset(0, 1).Formula = Date 'A la place de "Date", mentionner ici la formule à employer
Next
Application.ScreenUpdating = False
End Sub