Sub Copier()
Dim objWorkbookCible As Workbook
Dim objworkbooksource As Workbook
Set objworkbooksource = ActiveWorkbook
For i = 1 To Range("nbfruits")
With ThisWorkbook.Sheets("donnees")
Range("fruit") = Cells(6 + i, 1)
Worksheets("tableau").Copy
Range("A1:S49").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub