Sub classeur_breakers()
Dim PremLigQ&, DernLigQ&, NoColQ%, PasColQ&, NoColR&
fQ$ = "suivi qté"
fR$ = "recherche"
NoColQ = 3: PasColQ = 3: PremLigQ = 2: NoColR = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets(fQ$).Select 'active le feuille de données à copier !
DernLigR = 1
Do While Not IsEmpty(Cells(PremLigQ, NoColQ))
DernLigQ = Columns(NoColQ).Rows(Rows.Count).End(xlUp).Row
Application.CutCopyMode = False
Range(Cells(PremLigQ, NoColQ), Cells(DernLigQ, NoColQ)).Copy
Sheets(fR$).Cells(DernLigR, NoColR).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
DoEvents
DernLigR = Sheets(fR$).Columns(NoColR).Rows(Rows.Count).End(xlUp).Row + 1
NoColQ = NoColQ + PasColQ
Loop
Sheets(fR$).Select: Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub