Bonjour h2so4,
Merci beaucoup pour ta réponse, j'apprécie énormément.
Cela marche très bien mais ça commence à comparer à partir de la ligne 2 alors que je veux que cela compare à partir de la troisième ligne et ce même si la ligne porte le numéro 7 ou 15 (car j'applique un filtre juste avant, seulement ça qui change sinon tout va bien).
Ensuite ce que j'ai essayé de faire avec la mise en forme conditionnelle, c'est de mettre un code couleur à toutes les cellules ayant comme valeur "yes" histoire de ne garder que les lignes ayant au moins une fois cette valeur et ce pareil à partir de la troisième ligne et ce peu importe la valeur numérique de la ligne.
Je veux garder les deux premières lignes car elles comportent mes header.
Voici mon code :
Sub KeepOnlyROwsContainingCertainValue()
' Remove all rows if empty
' Only keep the value "yes"
Dim rg As Range, c As Range, rg2 As Range
Dim i As Long, nbCol As Long, nbLig As Long, efface As Boolean
Application.ScreenUpdating = False
Set rg = ActiveCell.CurrentRegion 'All Data
nbLig = rg.Rows.Count
nbCol = rg.Columns.Count
For i = nbLig To 1 Step -1
Set rg2 = Cells(i, 1).Resize(1, nbCol)
efface = True
For Each c In rg2
If InStr(1, c.Text, "yes") > 0 Then efface = False
Next c
If efface Then Rows(i).EntireRow.Delete
If i Mod 500 = 0 Then Application.StatusBar = i 'compteur
Next i
Application.ScreenUpdating = True
End Sub
Merci pour ton aide.
Obeïda