Excel, lien entre tableau et devis

'signifie que toutes les variables devront être déclarées 
Option Explicit 

'cette procedure se déclenche automatiquement lorsque la feuille en question ("Feuil1") 
'change. Quelque soit le changement dans cette feuille. Ne concerne que la Feuil1. 
Private Sub Worksheet_Change(ByVal Target As Range) 
'déclaration des variables 
Dim DrLg As Long, Lig As Integer, Trouve As Range 

'******** ici on va definir la plage qui provoquera l'événement lors d'un changement***** 
'dernière ligne non vide de la colonne C 
DrLg = Range("C" & Rows.Count).End(xlUp).Row 

'Target = cellule qui a changé 
's'il n'y a pas d'intersection entre la cellule et le Range([C12], Cells(Rows.Count, 3).End(xlUp))) 
'soit si la cellule qui a changé n'appartient pas à « C12:C85 » (dans ton exemple)  
'alors on quitte la procédure et on ne fait rien. 
If Intersect(Target, Range([C12], Cells(Rows.Count, 3).End(xlUp))) Is Nothing Then Exit Sub 

'si le contenu de la cellule qui a changé est égal à 1 alors 
If Target.Value = 1 Then 
    'dans la feuil2 
    With Sheets("Feuil2") 
        'on determine la ligne qui va recevoir les données colonne A 
        Lig = .Range("A23").End(xlUp).Row + 1 
        'cette ligne doit au minimum être supérieure ou égal à 8 
        If Lig < 8 Then Lig = 8 
        'si tout est remplit (à partir de la ligne 22) 
        If Lig >= 22 Then 
            'alors le devis est considéré comme remplit ==> message 
            MsgBox "Devis complet! Enregistrement annulé" 
             'on ne fait rien et on quitte la procédure 
            Exit Sub 
        End If 
        'si tous les tests precedents sont ok alors : 
        'on remplit les colonnes A et F des données situées : 
               'Target.Offset(0, 1) = décaler de 0 ligne et de 1 colonnes à droite de la Target 
                         'soit colonne D Feuil1 
        .Range("A" & Lig) = Target.Offset(0, 1) 
    ''Target.Offset(0, 2) = décaler de 0 ligne et de 2 colonnes à droite de la Target 
                          'soit colonne E Feuil1 
        .Range("F" & Lig) = Target.Offset(0, 2) 
    End With 


'Par contre, si le contenu de la cellule qui a changé est égal à rien ou 0 alors 
ElseIf Target.Value = "" Or Target.Value = 0 Then 
    'dans la feuil2 
    With Sheets("Feuil2") 
        'entre Feuil2 !A8:A22 on cherche le contenu de la colonne D, cellule voisine de Target 
        Set Trouve = .Range("A8:A22").Cells.Find(Target.Offset(0, 1).Value, Lookat:=xlWhole) 
            'si on ne le trouve pas. (cas de l'effacement d'un zéro par exemple) 
            If Trouve Is Nothing Then 
                'un message d'information préviens 
                MsgBox "Le devis ne comportait pas cette élément!, veuillez vérifier" 
                Exit Sub 
            Else 
           'si on trouve le contenu de la cellule (voisine à Target Colonne D Feuil1) dans la plage Feuil2 !A8 :A22 Alors 
            'on prends son numéro de ligne 
                Lig = Trouve.Row 
            End If 
        Set Trouve = Nothing 
        'le but est d'effacer cette ligne alors : 
         'on coupe les cellules comprises entre A(Ligne+ 1) et F22 
          'et on les colle une ligne au dessus, donc à la place de la ligne que l'on veux effacer 
        .Range("A" & Lig + 1 & ":F22").Cut .Range("A" & Lig) 
    End With 
'A partir d'ici on remets juste une bordure à la plage A8:F24 
    With Sheets("Feuil2").Range("A8:F24").Borders(xlEdgeLeft) 
        .LineStyle = xlContinuous 
        .Weight = xlMedium 
        .ColorIndex = xlAutomatic 
    End With 
    With Sheets("Feuil2").Range("A8:F24").Borders(xlEdgeTop) 
        .LineStyle = xlContinuous 
        .Weight = xlMedium 
        .ColorIndex = xlAutomatic 
    End With 
    With Sheets("Feuil2").Range("A8:F24").Borders(xlEdgeBottom) 
        .LineStyle = xlContinuous 
        .Weight = xlMedium 
        .ColorIndex = xlAutomatic 
    End With 
    With Sheets("Feuil2").Range("A8:F24").Borders(xlEdgeRight) 
        .LineStyle = xlContinuous 
        .Weight = xlMedium 
        .ColorIndex = xlAutomatic 
    End With 
End If 
End Sub