tarouf

Sub Essai()
  Dim dlig&: dlig = Cells(Rows.Count, 1).End(3).Row
  If dlig = 1 And IsEmpty([A1]) Then Exit Sub
  Dim chn$, lig&, col As Byte, k As Byte
  Application.ScreenUpdating = 0
  For lig = dlig To 1 Step -1
    chn = "12345"
    For col = 1 To 5
      k = Cells(lig, col)
      If k < 6 And k <> 3 Then Mid$(chn, k, 1) = "*"
    Next col
    If chn = "**3**" Then Rows(lig).Delete
  Next lig
End Sub