[VBA] Problème maj de variable objet

Bonjour, J'ai un petit soucis avec le code suivant :

'Déclaration des objets et variables
Dim appExcel As Object
Dim wbExcel As Object
Dim wsExcel As Object
Dim cellExcel As Object
Dim i As Integer
i = 1
s = CStr(i)

'Définition des objets
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Set wbExcel = appExcel.WorkBooks.Open("C:\test")
Set wsExcel = wbExcel.Worksheets(1)
Set cellExcel = wsExcel.Range("E" & s)

'On cherche la ligne où insérer les valeurs
While Not (cellExcel = mois)
i = i + 1
s = CStr(i)
Set cellExcel = wsExcel.Range("E" & s)
Wend

'Insertion d'une nouvelle ligne
cellExcel.Select
appExcel.ActiveSheet.Rows(s).Insert

'Copier-coller operation
Set cellExcel = wsExcel.Range("D" & s)
Bookmarks("operation").Range.Select
Selection.Copy
appExcel.ActiveSheet.Paste


La boucle fonctionne bien, la bonne ligne est trouvée. Par contre lorsque je fais un copier coller il reste à la colonne E alors que je demande la colonne D. Il y'a un truc que je n'ai pas du comprendre dans le langage... Quelqu'un peut m'éclairer ?