Affecter une valeur dans un autre onglet

Bonjour et merci d'avance !

Je souhaite sur la base de ce code affecter une valeur dans une cellule d'un autre onglet "Original" mais çà ne marche pas

Le code ci-dessous est situé dans un onglet appelé "Data"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a25000")) Is Nothing Then
    Sheets("Original").Select
    Range("E4") = ActiveCell.Offset(0, 1).Value

End If
End Sub

Si quelqu'un peut me corriger l'expression... ce serait avec un grand merci !!

Chree74

Bonjour,

A tester ... car il faudrait être sûr de la source à copier ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a25000")) Is Nothing Then
    Sheets("Original").Range("E4").Value = Target.Offset(0, 1).Value
End If
End Sub

James007 a écrit :

Bonjour,

A tester ... car il faudrait être sûr de la source à copier ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a25000")) Is Nothing Then
    Sheets("Original").Range("E4").Value = Target.Offset(0, 1).Value
End If
End Sub

merci beaucoup !

Re,

Merci pour tes remerciements ...