Non prise en compte condition if dans l'exécution d'une macro

Bonjour,

Je me permets de vous écrire car j'ai besoin de votre aide.
J'ai une macro qui me permet de prélever des données aléatoirement avec des conditions.
Cependant la macro ne respectent aucune des conditions et me renvoie des valeurs erronées.
Voici le code

Sub Date_exclus()
'
Dim tTab
'
fm_MsgBoxINPUT.Show
'
iRow = Cells(Rows.Count, 1).End(xlUp).Row
 tTab = Range("A5:H" & iRow)
 '
Do
 iFlag = Int(Rnd * UBound(tTab, 1)) + 1
 If Mid(tTab(iFlag, 1), 2, 2) > Range("K1") And Mid(tTab(iFlag, 1), 4, 2) > Range("K2") And tTab(iFlag, 8) = "FN " Then
 tTab(iFlag, 1) = 0
 iLig = iLig + 1
 Sheets("Feuil2").Range("A" & iLig & ":H" & iLig).Value = Range("A" & iFlag + 1 & ":H" & iFlag + 1).Value
 End If
 iFlag1 = iFlag1 + 1
 Loop Until iLig = 83 Or iFlag1 = 30000
 '
End Sub

Je sais qu'il y a un problème au niveau du format des variables mais je ne sais pas comment le résoudre.
Merci pour le temps que vous prendrez.

Loumie.