Remplacement de cellules avec conditions

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim numero As Integer, Lig As Integer
     If Target.Column = 5 And Target <> "f" Then '(5<--> E)
     numero = Target.Offset(0, -2)
     With Sheets(1)
          Lig = .Columns("A").Find(numero, .Range("A30000"), xlValues).Row
          .Cells(Lig, "C") = Target
          End With
     End If
End Sub

comment installer ?
faire un "copier" cette macro
clic droit sur le nom de l'onglet de la feuille concernée( feuil2) (en bas de l'écran)
visualiser le code
coller

cocher menu  options-macros-sécurité- niveau moyen

1/ Si l'onglet Développeur n'apparait pas dans le ruban:
     Cliquer sur le bouton Office,
     puis sur le bouton Options Excel.
     Cliquer sur le menu Standard.
     Cocher l'option Afficher l'onglet Développeur dans le ruban.
     Cliquer sur le bouton OK pour valider.
2/ activer les macros
    Cliquer sur le bouton Office,
     puis sur le bouton Options Excel.
     Cliquer sur centre de gestion de confidentialité
     puis sur param^tre du centre de gestion de la confidentialité
     puis cocher le bouton radio activer les macros
     Cliquerz sur le bouton OK pour valider.
ton Excel est maintenant définitivement prêt à travailler avec des macros