Sub test()
Application.ScreenUpdating = False
Sheets("Serveur").Select
With Sheets("Recap")
Range("F32:F" & Range("F32").End(xlDown).Row).Copy Destination:=.Range("F2")
Range("G32:G" & Range("G32").End(xlDown).Row).Copy Destination:=.Range("C2")
End With
Application.ScreenUpdating = True
End Sub