Procédure trop longue au secours merci!!!

Bonjour @ tous,

j'ai un gros souci qui me plombe tout le reste de l'appli, en effet je part d'une base de donnée pour éditer une fiche individuelle.
ceoendant la base regroupe presque 400 informations ce qui fait que lorsque je colle chaque donnée sur la feuille et lorsque je veux déclencher la procédure vba me rétorque procédure trop longue!!!
Auriez vous un moyen de simplifier ce code: je vous mets une exemple:


orkbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 5).Copy
ActiveWorkbook.ActiveSheet.Range("c5").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 6).Copy
ActiveWorkbook.ActiveSheet.Range("e5").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 7).Copy
ActiveWorkbook.ActiveSheet.Range("e6").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 8).Copy
ActiveWorkbook.ActiveSheet.Range("c7").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 9).Copy
ActiveWorkbook.ActiveSheet.Range("f7").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 10).Copy
ActiveWorkbook.ActiveSheet.Range("c8").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 11).Copy
ActiveWorkbook.ActiveSheet.Range("f8").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 12).Copy
ActiveWorkbook.ActiveSheet.Range("d10").PasteSpecial Paste:=xlPasteValues

Workbooks("suivi RH compagnie.xls").Sheets("rensprivés").Cells(n, 13).Copy
ActiveWorkbook.ActiveSheet.Range("c11").PasteSpecial Paste:=xlPasteValues

Je suis sur qu'il y a un moyen de condensé cela mais je ne vois pas.

Merci d'avance pour l'aide apporté.

@+