Private Sub Worksheet_Change(ByVal target As Range)
If Not Intersect(target, Range("J2:K1000")) Is Nothing Then
If target.Column = 10 And target.Row > 1 Then
If target = "" Then
target.Offset(, 4) = "Egare"
Else
target.Offset(, 4) = "Archivé"
End If
End If
'''''''''''''''Pour le haut c bon ca marche''''''''''''''''''''''''''''''''''''
If target.Column = 11 And target.Row > 1 Then
If target = "" Then
target.Offset(, 3) = "Dossier sorti"
Else
target.Offset(, 3) = "Dossier Entré"
End If
End If
End If
'j'aimerai travailler avec la date '
End Sub