Incompatibilité de type

Bonjour tout le monde !! ( suis nouveau)

J'ai quelques notions de logique qui datent de quelques années mais j'ai décidé de me remettre à vba ... pourriez vous m aider svp sur ce fichier qui me pose problème ?

But : j'ai un tableau de données, et dans une colonne le nom des contrats ( un emme contrat peut etre sur plusieurs lignes) et le chiffres d affaires générés dans une autre colonne.


Private Sub ClassContrats()

Dim som As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer

som = 0 *va me permettre de comparer la valeur du contrats étudier à celle deja mises dans le tableau*
i = 20


For i = 20 To 463 *correspond à mon tableau*

m = 0
som = Feuil2.Cells(i, 6) *je prends la première ligne*
n = 1

Do While Feuil2.Cells(i, 4) = Feuil2.Cells(i + n, 4) *je somme pour voir si le contrat est sur plusieurs lignes*
som = som + Feuil2.Cells(i + n, 6)
n = n + 1
Loop

Do While (som > Feuil2.Cells(12 - m, 6)) & (m < 10) * je compare à la valeur la plus petite de mon tableau et remonte jusqu à l éventuel contrat le plus gros*
m = m + 1
Loop

If (som > Feuil2.Cells(12, 6)) Then Feuil2.Cells(12 - m, 6) = som*je copie juste la somme, cela me permet de ne pas mettre tout un tas de données*

For j = 2 To 4 *j'ajoute le nom et deux trois trucs sur la drotie*
Feuil2.Cells(12 - m, j + 5) = Feuil2.Cells(i, j)
Next j
i = i + n

Next i

End Sub



Voila ! et la j ai essayé plusieurs choses mais je ne sais pas sur quelle(s) valeur(s) je devrai changer de type.

Merci d'avance