Macro ne fonctionne pas dans ThisWorkbook

Bonjour,

Cette macro fonctionne quand je la copie sur une de mes feuilles concernées, mais la macro ne fonctionne pas sur ThisWorkbook :

Private Sub Worksheet_Change(ByVal Target As Range)

       If Target.Count = 1 And Target.Row > 9 Then
            Cible = ActiveSheet.Cells(Target.Row, Target.Column).Value

'quand trigramme écrit alors date de contrôle'
If Target.Column = 6 Then
Target.Offset(0, 1) = Date

End If
End If

End Sub

J'aimerai la mettre dans thisworkbook car toutes les feuilles doivent fonctionner avec cette macro

Merci

Bonjour,

Ne serait-ce pas plutôt ceci:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Cdlt

Bonjour,

Parfait merci beaucoup