Macro pour copie dans la cellule d'à coté

[ascal44]

Bonjour le forum,
Je joint un fichier pour plus de compréhension.
Je voudrais lorsque je saisie une nouvelle donnée que celle d'origine se copie dans la cellule d'à coté.

Merci pour vos conseils et bonnes fêtes de fin d'année

[PascalXLD]

Bonjour

un petit essai

[skoobi]

Bonjour ascal44,
arfff salut Pascal,

j'étais interrompu avant de finir, je mets quand même la macro:

Public avant
Private Sub Worksheet_Change(ByVal Target As Range)
Set plage = Range([B5], [B5].End(xlDown))
If Not Intersect(Target, plage) Is Nothing Then
    Target.Offset(0, 1).Value = avant
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plage = Range([B5], [B5].End(xlDown))
If Not Intersect(Target, plage) Is Nothing Then
    avant = Target.Value
End If
End Sub

A coller dans le code de la feuille en faisant bouton droit puis visualiser le code.

[excalibur]

bonsoir ascal44 pascal le forum pascal tu as oublie la couleur he alors!!(lol)
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B10")) Is Nothing Then
Target.Offset(0, 1) = Target.Value
Target.Offset(0, 1).Font.ColorIndex = 3
End If
End Sub
salutations

[ascal44]

Merci Excalibur je te remercie de ton aide.

Celà correspond à mon attentente mais je voudrais pouvoir coller des valeurs dans les cellules où le code s'applique.

Serait ce possible ?