1 formule à appliquer seulement de tel ligne a tel ligne

Bonjour,

J'ai un fichier Excel ( que je ne peux pas vous attacher , je suis employée et on me l'interdit) dans lequel j'ai cette formule:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo

  On Error Resume Next 'sécurité
  Application.EnableEvents = False 'désactive l'action des évènements
  tablo = Target 'mémorise les valeurs
  Application.Undo 'annule le collage
  Target = tablo 'rétablit uniquement les valeurs
  Application.EnableEvents = True

End Sub

Cette formule est pour une feuille nommée DECLINAISON.

Est-il possible d'appliquer cette formule de la ligne 5 à 36 de la feuille DECLINAISON?

Si oui comment dois-je m'y prendre?

Je vous remercie beaucoup,

Et encore désolée de ne pouvoir attacher l'objet concerné....

Merci

Bonjour

Est-il possible d'appliquer cette formule de la ligne 5 à 36 de la feuille DECLINAISON?

Reste à définir le l'étendue exacte du champ d'application, ici c'est A5:G36. Tu modifieras en fonction

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:G36")) Is Nothing Then

Dim tablo

  On Error Resume Next 'sécurité
 Application.EnableEvents = False 'désactive l'action des évènements
 tablo = Target 'mémorise les valeurs
 Application.Undo 'annule le collage
 Target = tablo 'rétablit uniquement les valeurs
 Application.EnableEvents = True
End If
End Sub

Cordialement

Merci,

Un grand merci ca marche super et je peux adapter les lignes.

Encore Merci

J'ai juste un petit mot qui me dit:

"erreur de compilation : End Sub attendu"

Mais ca fonctionne quand meme. Ca pourrait peut-etre perturber d'autres formules ailleurs. J'aurai bien tenté d'ajouté End Sub aprés le End If mais n'y connaissant rien je doute que ce soit comme ça qu'il faille faire.

Merci

EDIT: J'ai ajouté End Sub aprés End If comme ceci et ça marche nickel.

    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A5:G36")) Is Nothing Then
    Dim tablo

      On Error Resume Next 'sécurité
     Application.EnableEvents = False 'désactive l'action des évènements
     tablo = Target 'mémorise les valeurs
     Application.Undo 'annule le collage
     Target = tablo 'rétablit uniquement les valeurs
     Application.EnableEvents = True

    End If
End Sub

Merci encore