consolidae de position

Private Sub Worksheet_Change(ByVal Target As Range) 'à l'édition dans une cellulle
Dim r As Range 'déclare la variable r (Recherche)
 
If Target.Column <> 10 Then Exit Sub 'si l'édition a lieu ailleurs qu'en colonne J, sort de la procédure
'si l'édition à lieu dans une ligne inférieure à 6 ou supérieure à la dernièr ligne éditée en colonne A, sort de la procédure
If Target.Row < 6 Or Target.Row > Cells(Application.Rows.Count, 1).End(xlUp).Row Then Exit Sub
 
If Target.Value = "INS" Then 'condition 1 : si la valeur de la cellule est "INS"
    'définit la recherche r (dans la colonne A de l'onglet "Feuil2" la valeur correspondant à la colonne A de cel)
    Set r = Sheets("Feuil2").Columns(1).Find(Sheets("Feuil1").Cells(Target.Row, 1), , xlValues, xlWhole)
    If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence
        Target.Offset(0, 1).Copy 'copy la colonne K de cel
        r.Offset(0, 44).PasteSpecial (xlPasteValues) 'colle la valeur dans AS de r
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
 
'boucle sur toutes les cellules éditées de la colonne J de l'onglet "Feuil1"
For Each cel In Sheets("Feuil1").Range("J6:J" & Sheets("Feuil1").Cells(Application.Rows.Count, 10).End(xlUp).Row)
    If cel.Value = "INS" Then 'condition 1 : si la valeur de la cellule est "INS"
        'définit la recherche r (dans la colonne A de l'onglet "Feuil2" la valeur correspondant à la colonne A de cel)
        Set r = Sheets("Feuil2").Columns(1).Find(Sheets("Feuil1").Cells(cel.Row, 1), , xlValues, xlWhole)
        If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence
            cel.Offset(0, 1).Copy 'copy la colonne K de cel
            r.Offset(0, 44).PasteSpecial (xlPasteValues) 'colle la valeur dans AS de r
        End If 'fin de la condition 2
    End If 'fin de la condition 1
Next cel 'prochaine cellule cel de la boucle
End Sub