Sub Traitement_par_formule()
t = Timer
With Application
'.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
Dim ShRaw As Worksheet
Dim LShRaw As Long
Dim Brr As Variant
'=============================================================
Set ShRaw = ThisWorkbook.Worksheets("Raw")
LShRaw = ShRaw.Cells(ShRaw.Rows.Count, 1).End(xlUp).row
Brr = ShRaw.Range("A2:H" & LShRaw)
'==================================================================================================================================
With ShRaw
If .FilterMode Then .ShowAllData
'.Range("I2:I" & LShRaw).ClearContents
.Cells(1, "I") = "Clé"
.Cells(2, "I").FormulaLocal = "=""445""&""_""&A2&""_""&C2&""_""&D2&""_""&F2&""_""&G2"
.Cells(2, "I").AutoFill .Cells(2, "I").Resize(LShRaw - 1)
.Cells(1, "I").Resize(LShRaw) = .Cells(1, "i").Resize(LShRaw).Value
End With
With Application
'.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
MsgBox Timer - t
End Sub