Sub test_2()
'Déclarations
Dim psource As Range, pdesti As Range, Quanti As Range
With Sheets("Prepa")
Set psource = .Range("D252:D550")
Set Quanti = .Range("D1")
End With
'recopie des données selon le critère
'renseigné dans le Switch
Set pdesti = Sheets("Tableau").Range("L3")
psource.Copy Switch(Quanti = 35, pdesti, Quanti = 39, pdesti.Offset(, 4))
End Sub