Bonjour CV,

Ta question ressemble à celle-là :
http://www.commentcamarche.net/forum/affich-2170438-excel-co­mment-indiquer-une-da...

Regarde si la solution de Sergio63 te convient.

Bonjour, je suis vraiment novice dans la programmation vb et je m'aide avec les forums.
Est ce que qqu'un parmis vous pourrait me dire ce qu'il ne va pas dans ce code qui ne marche pas, gd merci (9-11-07):

Private Sub Worksheet_Change(ByVal Target As Range)
If plage Is Nothing Then Exit Sub
Set plage = Intersect(Target, Range("M2:M5000"))
If Target.Cells <> "distribué" Then
With Target(1, 2)
.Value = ""
.EntireColumn.AutoFit
End With
If Target(1, 2) = "" Then
If Target.Cells = "distribué" Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
With Target(1, 0)
.Value = "cloturé"
.EntireColumn.AutoFit
End With
End With
Else: Exit Sub
End If
End If
End If
End Sub

Pas experte mais en jetant un coup d'oeil j'pense kil te mank un end if