re
je crois comprendre que tu vaux ajouter la colonne ak
Cette dernière étant une formule tu dois faire un collagespecial
modifie comme ceci.
.Range("a1").Offset(0, 0) = classe
.Range("a1").Offset(0, 1) = n
.Range("a1").Offset(0, 2) = n.Offset(0, 1)
n.Offset(0, 36).Copy
.Range("a1").Offset(0, 3).PasteSpecial (xlPasteValues)
.Range("a1:d1").Insert (xlDown)