Supprimer une ligne à partir de la cellule active

Bonjour le forum ,
J'ai une question par rapport à la suppression d'une ligne de mon fichier Excel en vba. Je ne veux pas toucher à la manière d'agir que j'ai choisi uniquement à comment sélectionner la cellule qu'on est en train de tester dans le if (actuellement ça ne fonctionne pas, voir la ligne du deuxième commentaire ).

Merci d'avance pour votre aide

Bonne fin de matinée

 If MsgBox("Il y a " & compteur & " titi ayant des tutu en tata 80 ou 90, voulez-vous supprimer ces titi ?", vbYesNo, "Demande de confirmation") = vbYes Then
        For Each cell In colonneB 'dans la colonne B de la ligne deux à la dernière ligne complétée
            If cell.Interior.Color = RGB(250, 128, 114) Then
                    cellselec.Activate '<----------ICI mon problème la cellule n'est pas activée
                    ActiveCell.EntireRow.Delete
                    ligne = ligne + 1
            End If
        Next
        MsgBox "Suppression terminée"
    End If

Re,

Essaie comme ça :

Sub Macro1()
Dim DL As Integer
Dim I As Integer

DL = Cells(Application.Rows.Count, "B").End(xlUp).Row
If MsgBox("Il y a " & compteur & " titi ayant des tutu en tata 80 ou 90, voulez-vous supprimer ces titi ?", vbYesNo, "Demande de confirmation") = vbYes Then
    For I = DL To 2 Step -1
        If Cells(I, "B").Interior.Color = RGB(250, 128, 114) Then Rows(I).Delete
    Next I
End If
MsgBox "Suppression terminée"
End Sub

Quand on supprime des lignes il est toujours préférable de partir du bas vers les haut...

merci ça fonctionne très bien