Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Si la modification concerne la colonne 10 ( col J )
If Not Intersect(Target, Columns(10)) Is Nothing Then
Application.EnableEvents = False
' alors si une date a été saisie
If IsDate(Target) Then
'
' on inscrit 5 une cellule à droite de Target ( Col C)
Target.Offset(0, -7) = 5
' on inscrit 'soldé' deux cellules à droite de Target (Col L)
Target.Offset(0, 2) = 'soldé'
'
' si la saisie n'est pas une date ...'
Else
'
' message à l'utilisateur = effacement saisie + re-sélection
MsgBox 'la saisie ne correspond pas à une date...'
Target = ''
Target.Select
End If
Application.EnableEvents = True
End If
End Sub