encore vb6 et excel

voici mon code j explique apres


                LigneExcel = 30
                ' Affecte les données dans les cellules de la feuille
                With ActiveWorkbook.Worksheets("Feuil1")
                .Cells(LigneExcel, 4) = 1
                End With

alors voila ca dit que dans mon fichier excel je prend la ligne 30 et à la colonne 4 soit D
je met la valeur 1

sa marche sans soucie

maintenant si je repasse dans ce cas, dans excel il me remet 1
bon comment je fait pour qu'il me prenne 1+1
c est a dire quil aditionne ce que j'ai dans ma cellule et ce que je veut lui affecter???



MERCI

et dire que c'est tout simple et que je n'y ai meme pas pensée

merci beaucoup :)

Truc d'optimisation : il ne sert à rien de faire du With ... End With si à l'intérieur tu n'as qu'une seule ligne.  En effet, le CPU prend plus de temps à "instancier" ton With... qu'à écrire la valeur.

Une construction With devient "rentable" si tu as trois ou quatre instructions à l'intérieur et qui nécessite ton objet.

Christophe