Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E42")) Is Nothing Then
If Target.Value <> "" Then
With Sheets("Caisse Janv08")
LigVide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LigVide).Value = Range("A" & Target.Row).Value
.Range("B" & LigVide).Value = Range("C" & Target.Row).Value
.Range("E" & LigVide).Value = Range("E" & Target.Row).Value
End With
End If
End If
End Sub