Pas bien clair en effet, alors la boule de cristal.
En supposant que les 2 tableaux ont bien les mêmes dimensions :
Code:
With Sheets("Synth_WEEK")
For i = 0 To derniere_ligne - 2
For j = 0 To 5
tab_exemple(i, j) = .Cells(i + 2, j + 1)
Next
If tab_exemple(i, 1) > 0.4 Then
For j = 0 To 5
tab_alert(i, j) = tab_exemple(i, j)
Next
End If
Next
End With