re bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 24 And Target.Row = 6 Then
sheets(3).Range("A1").Value = "Date de la dernière modification le " & Now
End If
End Sub

Grace à ce code si la cellule "X6" change dans la feuille 1 d'un fichier A, une date de modif apparait en "A1" dans la feuille 3 du fichier A
maintenant est-il possible qu'une cellule "X6" change dans la feuille 1 d'un fichier B et la date de modif apparait toujours en "A1" dans la feuille 3 du fichier A?

quelqu'un a t'il une idée de la solution?