Dim i As Byte, ligne As Byte, j As Byte
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For ligne = 1 To 100
For i = 47 To 52 'AU AZ
Cells(8, i - 17) = Cells(ligne, i)
Next i
Application.Calculation = xlCalculationAutomatic
DoEvents
If Cells(7, 41).Value < 7 And Cells(9, 36).Value > 0 And Cells(9, 36).Value < 4 And Cells(4, 36).Value < 4 Then
Application.Calculation = xlCalculationManual
For j = 47 To 52
Cells(ligne, j + 7) = Cells(ligne, j)
Next j
Application.Calculation = xlCalculationAutomatic
DoEvents
End If
Next ligne
Application.ScreenUpdating = True