Définition de la valeur d'une cellule, vba excel

J'ai une question simple concernant le réglage de la valeur d'une cellule dans Excel en utilisant vba.

Le code suivant ne fonctionne pas, quelqu'un pourrait-il m'aider?

Thisworkbook.sheets("name1").range("I"& 4 +k).value = ActiveSheet.Range("D" & k) 

Je vous remercie!

     ThisWorkbook.Sheets("name1").Range("I" & (4 +k)).Value = ActiveSheet.Range("D" & k).Value 

    Comment ça? Les crochets autour (4 + k) aideront le calcul et le .Value à la fin permettra à la valeur d'être prise en count.