Sub copier_coller()
Dim derLigne As Long, nLignes As Long
With Source.Sheets("2013")
With .Range("B3:B" & .[B65536].End(xlUp))
derLigne = .Row
nLignes = .Rows.Count
End With
Cible.Sheets("vincent").Range("B65536").End(xlUp)(2).Resize(, nLignes).Value = .Range("B3:B" & derLigne).Value
Cible.Sheets("vincent").Range("C65536").End(xlUp)(2).Resize(, nLignes).Value = .Range("G3:G" & derLigne).Value
Cible.Sheets("vincent").Range("D65536").End(xlUp)(2).Resize(, nLignes).Value = .Range("I3:I" & derLigne).Value
Cible.Sheets("vincent").Range("E65536").End(xlUp)(2).Resize(, nLignes).Value = .Range("K3:K" & derLigne).Value
Cible.Sheets("vincent").Range("F65536").End(xlUp)(2).Resize(, nLignes).Value = .Range("L3:L" & derLigne).Value
End With
End Sub