Copie de cellules d'une feuille vers une autre feuille

[Fermé]
Signaler
-
Bonjour,
j'ai ecris ce programme pour copier et effacer dans la meme feuille.Qui peux m'aider pour copier dans une autre feuille ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, [D4:D23])
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
If Cel = "Retourné" Then
With Range(Cel.Offset(0, -2), Cel.Offset(0, 2))
.Copy Cells(Rows.Count, "I").End(xlUp)(2)
.ClearContents
End With
End If
Next Cel
End Sub