Aciver une macro sur plusieurs feuilles en appuyant enter

Bonjour à tous, petit problème, voici ma macro:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then

Call RECH

End If

End Sub

Cette petite macro fonctionne sur la feuille 1 de mon classeur et je voudais la faire fonctionner sur plusieurs autres feuilles de mon classeur, pour le moment je dois copier cette macro sur chauque feuille de mon classeur, c'est long.

Le but de cette macro est qu'en rentrant des valeurs sur ma colonne C de la feuille1 , je veux seulement appuyer sur ENTER de mon clavier pour activer ma macro qui se nomme RECH sur mon module1. Je ne veux plus faire de bouton pour démarrer ma macro. Je veux que cette macro fontionne sur toute les autres feuilles de mon classeur.

Merci d'avance à tout ceux qui vont m'aider, bonne soirée à tous.

André.

Bonjour

Supprimes tes macros dans les feuilles et places cette macro dans le module ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
    Call RECH
  End If
End Sub
Rechercher des sujets similaires à "aciver macro feuilles appuyant enter"