VBA Problème Boucle If then ElseIf

Bonjour,

Je voudrai vous demander votre avis sur un petit programme que j'ai codé. Il a pour but, en résumé, de comparer deux colonnes se trouvant dans des feuilles différentes. Voici le code :

Sub Programmeboulot()



Dim Name As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Valeur As Integer
Dim num As Integer



For i = 1 To Sheets.Count
With Sheets(i)
.Select
.Name = "feuille" + CStr(i)
End With

Next i


For i = 2 To Sheets.Count

Valeur = Sheets("feuille" + CStr(i)).Cells.Find("Boom", , , , , xlPrevious).Row


For j = 3 To Valeur

For k = 3 To 12

If Sheets("feuille" + CStr(i)).Cells(j, 1).Value = Sheets("feuille" + CStr(1)).Cells(k, 1).Value Then
Sheets("feuille" + CStr(1)).Cells(k, 4) = "OK"

ElseIf Sheets("feuille" + CStr(i)).Cells(j, 1).Value <> Sheets("feuille" + CStr(1)).Cells(k, 1).Value Then
Sheets("feuille" + CStr(1)).Cells(k, 4) = "KO"

End If

Next k

Next j

Next i



For i = 1 To Sheets.Count
With Sheets(i)
.Select
.Name = [C2]
End With
Next i


End Sub


Le problème se situe dans la boucle If. Même lorsque les valeurs comparées sont égales, la seconde partie de la boucle ( le ElseIf) s'exécute et écrit ce qui est demandé dans le cas où les valeurs ne seraient pas égales c'est à dire "KO".

J'ai retourné le problème dans tous les sens mais je n'ai pas trouvé de solutions. J'attends à présent qu'une bonne âme vienne éclairer ma lanterne.

Merci d'avance :-)