Remplacer Supprimer valeur cellules entre Feuil1 et Feuil3

Bonjour à tous

Encore un nouveau souci !!!!

Je souhaite remplacer automatiquement sur certaines cellules de la "feuil1" les valeurs qu'elles contiennent par un "/", si à partir de la "feuil3" je remplace la valeur de certaines cellules par un "/".

De plus lorsque sur la "feuil1" les valeurs des cellules concernées sont remplacées par un "/" alors les valeurs contenues dans une plage de cellule de la "feuil1" sont supprimées

Sur la "feuil1" j'ai saisi un code, qui fonctionne si je remplace les valeurs des cellules spécifiques par un "/" mais uniquement à partir de la "feuil1"

Voir fichier ci-joint

Merci d'avance pour votre aide

aalex85

aalex85

Bonjour

Simplement en plaçant ce code dans le module feuil3

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

  If Application.Intersect(Target, Range("C5:C10")) Is Nothing Then Exit Sub
  If Target.Value <> "/" Then Cells(Target.Row, 1).Select
  If Target.Value = "/" Then Sheets("Feuil1").Cells(Target.Row + 5, 1).Resize(1, 3).ClearContents
End Sub

Merci Banzai64

Je n'y avais pas pensé...

Une fois de plus merci pour ton aide

aalex85