Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 21 Then
If Target.Value <> "" Then
Range("q" & Target.Row).ClearContents
Range("v" & Target.Row) = Date
Range("z" & Target.Row) = Application.UserName
Range("ab" & Target.Row) = Format(Date, "mmmm")
Range("ac" & Target.Row) = Range("v" & Target.Row).Value - Range("e" & Target.Row).Value
If InStr(1, UCase(Target), "RETOUR") = 0 Then Range("s" & Target.Row) = "Clôturé" Else Range("s" & Target.Row) = "Retour"
End If
End If
End Sub