Dim rng As Range, dl%
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Set rng = Range(Target, Target.Offset(0, 10))
With Sheets("journal des mouvements")
dl = .Range("A65536").End(xlUp).Row + 1
rng.Copy .Range("A" & dl)
On Error Resume Next
.Range("d" & dl).Comment.Delete
On Error GoTo 0
End With
Range("H" & Target.Row, "I" & Target.Row).Clear