Changement dans la même ligne d'une colonne à l'autre

Bonjour à tous,

Je vous sollicite pour une toute petite demande.

Autrefois je vous avais demandé de créer un code qui insère la date du jour dans la colonne "i" de la même ligne que le changement de donnée de la colonne "b", que voici :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("b4:b" & [a65536].End(xlUp).Row)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Cells(Target.Row, "i") = Now
    End If
End Sub

Maintenant, je voudrais dans le même registre, un code pour ajouter la valeur de la colonne "c" de la même ligne dans la colonne "aa" en y ajoutant un "\" à la fin de la valeur. Actuellement j'utilise la formule (p.ex. dans la cellule AA5) =concatener(C5;"\")... J'ai environ 5 variantes dans 5 colonnes différentes sur environ 1500 lignes... Mon fichier est donc... gros ?

Au secours...

Bonjour

En adaptant le code précédent

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c4:c" & [c65536].End(xlUp).Row)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Cells(Target.Row, "aa") = Target.Value & "\"
    End If
End Sub

Cordialement

Alléluia!

Amadeus tu es un dieu! Merci beaucoup, ça marche impec!