VBA-Modifie Donnee

Private Sub Worksheet_Change(ByVal Target As Range)
'déclaration des variables
Dim colBfeuilEsclave As Range, cellRecherche As Range

    'si c'est une cellule de la colonne B qui vient d'être changée, quitter la macro
    If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then Exit Sub
    
    'si c'est une cellule de la première ligne qui vient d'être changée, quitter la macro
    If Not Application.Intersect(Range("1:1"), Target) Is Nothing Then Exit Sub
    
    Set colBfeuilEsclave = ThisWorkbook.Sheets("Feuil1-1").Range("B:B")
    
    'rechercher l'index de la ligne qui vient d'être changé dans la colonne B de la feuille esclave
    Set cellRecherche = colBfeuilEsclave.Find(Range("B" & Target.Row), , xlValues, xlWhole)
    
    'si on a retrouvé la référence, appliquer la modification
    If Not cellRecherche Is Nothing Then cellRecherche.Offset(0, Target.Column - 2) = Target
End Sub

[COLOR=BLUE]Option[/COLOR] [COLOR=BLUE]Explicit[/COLOR]
[COLOR=BLUE]Dim[/COLOR] posLigne [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Variant[/COLOR]
[COLOR=BLUE]Dim[/COLOR] Ligne [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Long[/COLOR]
[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Worksheet_Change([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
    [COLOR=BLUE]If[/COLOR] Target.Column > 10 [COLOR=BLUE]Then[/COLOR] [COLOR=BLUE]Exit[/COLOR] [COLOR=BLUE]Sub[/COLOR]
        Ligne = Target.Row
        [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] IsEmpty(Cells(Ligne, 2)) [COLOR=BLUE]And[/COLOR] [COLOR=BLUE]Not[/COLOR] Cells(Ligne, 5) <> 1 [COLOR=BLUE]Then[/COLOR]
            posLigne = Application.Match(Cells(Ligne, 2), Sheets([i]"Feuil1-1"[/i]).Columns(2), 0)
            [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] IsError(posLigne) [COLOR=BLUE]Then[/COLOR]
                Application.EnableEvents = [COLOR=BLUE]False[/COLOR]
                Sheets([i]"Feuil1-1"[/i]).Cells(posLigne, Target.Column) = Target
                Application.EnableEvents = [COLOR=BLUE]True[/COLOR]
            [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
    
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]