VBA, boucles & erreur incompatibilité de type

Bonjour,

Je cherche a créer un programme sur VBA qui pourra traiter une multitude de données.
Dans la colonne E à partir de la ligne 16 j'ai des dates.
Dans la colonne K à partir de la ligne 16 j'ai quelques dates qui figurent toutes parmis les dates de E.
A une date de K est annexé un chiffre dans la colonne L sur la même ligne.

Si la date en E# correspond a une des dates en K j'aimerais mettre en H#, le chiffre de la colonne L qui correspond à la date en K.

J'ai écris ce programme



Sub Vep()

Dim n As Long
Dim m As Long
n = Application.CountA(Range("K16", Range("K16").End(xlDown)))
m = Application.CountA(Range("E16", Range("E16").End(xlDown)))
'Je compte le nombre de dates en E:m et en K:n

Dim j As Long
Dim i As Long
Dim s As Long
s = 0

For j = 16 To m + 16
For i = 16 To n + 16
'Je fais une boucle

Dim k As Date
Dim l As Date
k = Cells(i, 12).Value
l = Cells(j, 5).Value
' c'est sur ce l qu'il y a l'erreur 13 incompatibilité de type

If k = l Then s = s + Cells(i, 13)

Next i
Next j


End Sub

Je ne suis pas sur de ma définition de n et m.
Mon programme ne fonctionne pas il semble y avoir une erreur lorsque je définis l (et non pour k).

De plus je souhaite m'assurer que le programme test tous les i avant de passer au j suivant.


Comment améliorer mon programme?!