Est-ce quelqu'un peut me déchiffrer se code, merci    
 
Range("B7" ).Select
    ActiveCell.FormulaR1C1 = _
        "=DGET('Base de données'!C[-3]:C[10],R[-1]C,R[-1]C[7]:RC[7])"
    Range("F7" ).Select
    ActiveCell.FormulaR1C1 = _
        "=DGET('Base de données'!C[-4]:C[9],R[-1]C,R[-1]C[6]:RC[6])"
 Selection.Locked = True
    Selection.FormulaHidden = False
    With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("E17:G17" ).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("I5:J5" ).Select

Mon problème  ce porte principalement sur ces quelques lignes :
Range("F7" ).Select  
   ActiveCell.FormulaR1C1 = _  
   "=DGET('Base de données'!C[-4]:C[9],R[-1]C,R[-1]C[6]:RC[6])"  
   

e sais pas trop ce que fait la formule DGET mais ca concerne la feuille Base de données