Private Sub Worksheet_Change(ByVal Target As Range)
'Déclarations ======================================
Dim Cel As Range, Plage As Range, X As Long
'Traitement Date ===================================
If Target.Column = 20 Then Target.Offset(0, 2) = Date
'Traitement chèque =================================
Set Plage = Intersect(Target, Columns(20))
If Not (Plage Is Nothing) Then
For Each Cel In Plage
If Cel = "CHQ" Then
Do While Cells(Cel.Row, "V") = ""
X = Application.InputBox("Numéro du chèque ?", "Inscription obligatoire", , , , , , 1)
If X > 0 Then Cells(Cel.Row, "V") = X
Loop
End If
Next Cel
End If
End Sub