Suppression de ligne apres condition if

Bonjour,

Je viens vers vous car malgré des recherches je n'arrive pas à faire ce que je voudrais.

J'ai écris ça :

'calcul du type d'IQS

DerniereLigne = Sheets("Incidents").UsedRange.Rows.Count

For Lig01 = DerniereLigne To 3 Step -1

'si le contenu de la cellule 3 est sup à 0 00:15 alors cellule 6 est IQS-I1-2

If Cells(Lig01, 3) > "0 00:15" Then

Cells(Lig01, 6).Value ("IQS-I1-2")

'si le contenu de la cellule 3 est sup à 0 02:00 alors cellule 6 est IQS-I2-2

ElseIf Cells(Lig01, 4) > "0 02:00" Then

Cells(Lig01, 6).Value ("IQS-I2-2")

Else 'sinon suppression de la ligne

If Cells(Lig01, 6) = ("") Then ActiveCell.EntireRow.Delete

End If

Next Lig01

End With

à la fin je n'ai rien dans les cellules 6 (alors que je devrais en avoir 1 de chaque) et toutes les lignes sont supprimées.....

J'ai essayé diverses choses mais sans résultat.

Donc si quelqu'un peux m'aider ce serait sympa.

Merci d'avance.