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