Sub test()
Application.ScreenUpdating = False
ReDim tablo(1 To Range("B" & Rows.Count).End(xlUp).Row - 1, 1 To 4)
For n = 2 To Range("B" & Rows.Count).End(xlUp).Row
tablo(n - 1, 1) = Left(Range("B" & n), 4) & "/" & Mid(Range("B" & n), 5, 2) & "/" & Right(Range("B" & n), 2)
tablo(n - 1, 2) = CDate(Right(Range("B" & n), 2) & "/" & Mid(Range("B" & n), 5, 2) & "/" & Left(Range("B" & n), 4)) - 140
tablo(n - 1, 3) = Date
tablo(n - 1, 4) = "=SI(F2>E" & n & ";""ERREUR"";""*"")"
Next
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2) - 1
Cells(1 + n, 3 + m) = tablo(n, m)
Next
Cells(1 + n, 7).FormulaLocal = tablo(n, 4)
Next
Application.ScreenUpdating = True
End Sub