Sub test()
Dim i As Long
On Error Resume Next
With ActiveSheet
Feuil1.Range("A1").Value = 0
Feuil1.Range("A2").Value = 0
For i = 1 To 500
Activesheet.EnableCalculation = True
Activesheet.EnableCalculation = False
If Range("AI6").Value = "OUI" Then
.Range("fu" & i, "fz" & i).Value = Range("ad" & 8, "ai" & 8).Value
.Range("ga" & i).Value = "OUI"
.Range("gy" & i, "hd" & i).Value = Range("ad" & 9, "ai" & 9).Value
End If
Feuil1.Range("A1").Value = i
Feuil1.Range("A2").Value = Feuil1.Range("FT1").Value
Next i
End With
Range("A1").Activate
Activesheet.EnableCalculation = True
End Sub