Bonjour Lapatate,
Si je comprend bien, dans ta FeuilX tu as le code, et tu aimerais utiliser le même code pour la Feuil2, etc...?
Si c'est bien cela, tu peux peut être essayer la méthode suivante:
Placer le code suivant dans un module
Public sub maMacro(Byval Target as Range)
If Target.Address = "$B$2" And Target.Value <> "" Then
Me.Cells(Application.Match(Me.Range("A2"), Me.Range("A13:A197"), 0) + 12, 2) = Target.Value
End If
End Sub
Et dans tes Feuilles, remplacer:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Value <> "" Then
Me.Cells(Application.Match(Me.Range("A2"), Me.Range("A13:A197"), 0) + 12, 2) = Target.Value
End If
End Sub
par
Private Sub Worksheet_Change(ByVal Target As Range)
Call maMacro(Target)
End Sub