Sub Trier_Chevaux_BON()
Dim j As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A2") = Range("A2") + 1
Range("plage1").ClearContents
For j = 1 To 300
Sheets("Feuil1").Cells(j, 1) = Trim(Sheets("Feuil1").Cells(j, 1))
If Sheets("Feuil1").Cells(j, 1) <> "" Then
For i = 6 To 52
If Sheets("Feuil1").Cells(j, 1) = Sheets("PRESSES").Cells(i, 1) Then
Sheets("PRESSES").Cells(i, 4) = Sheets("Feuil1").Cells(j, 2)
Sheets("PRESSES").Cells(i, 5) = Sheets("Feuil1").Cells(j, 3)
Sheets("PRESSES").Cells(i, 6) = Sheets("Feuil1").Cells(j, 4)
Sheets("PRESSES").Cells(i, 7) = Sheets("Feuil1").Cells(j, 5)
Sheets("PRESSES").Cells(i, 8) = Sheets("Feuil1").Cells(j, 6)
Sheets("PRESSES").Cells(i, 9) = Sheets("Feuil1").Cells(j, 7)
Sheets("PRESSES").Cells(i, 10) = Sheets("Feuil1").Cells(j, 8)
Sheets("PRESSES").Cells(i, 11) = Sheets("Feuil1").Cells(j, 9)
Exit For
End If
Next i
End If
Next j
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub