XL 2016 vba modification de tableau et modif la BDD

Sub correctionBDDanalyseprod()
Application.ScreenUpdating = False
Dim BDD As Worksheet, J1AM As Worksheet, R As Range
Dim I&, J&, K&, Derlig&

Set BDD = Worksheets("BDD Analyse prod")
Set J1AM = Worksheets("Analyse semaine reedition")
Derlig = BDD.Range("D" & BDD.Rows.Count).End(xlUp).Row

Set R = BDD.Columns("D").Find(J1AM.[R4], LookIn:=xlValues, lookat:=xlWhole)
If Not R Is Nothing Then
    I = R.Row ' Ligne de début de maj en Bdd
    J = J1AM.Range("F33").End(xlUp).Row 'Dernière ligne dans tableau de J1AM
    K = I + (J - 6)
    BDD.Range("F" & I & ":Z" & K).Value = J1AM.Range("F6:Z" & J).Value
    BDD.Range("AA" & I & ":AF" & K).Value = J1AM.Range("AA6:AF" & J).Value
    
    'If Flag = 0 Then ' pas compris ce groupe de code
    '    BDD.Range("D" & Derlig & ":AJ" & Derlig + 1).FillDown
    '    BDD.Range("F" & Derlig + 1).Value = J1AM.[F6].Value
    '    BDD.Range("I" & Derlig + 1).Value = J1AM.[G6].Value
    '    BDD.Range("J" & Derlig + 1).Value = J1AM.[H6].Value
    '    BDD.Range("K" & Derlig + 1).Value = J1AM.[I6].Value
    '    BDD.Range("L" & Derlig + 1).Value = J1AM.[J6].Value
    '    BDD.Range("U" & Derlig + 1).Value = J1AM.[K6].Value
    '    BDD.Range("V" & Derlig + 1).Value = J1AM.[L6].Value
    '    BDD.Range("D" & Derlig + 1).Value = MaDate
    'End if
End If

Set BDD = Nothing: Set J1AM = Nothing
End Sub