fonction "ou" en vba

Sub Macro2()
Dim TX As String
Dim LI As Integer
Dim K As Byte
Dim A As Range

TX = "samedi"
K = 1
With Sheets(K).Range("L17:M96")
    Set A = .Find(TX, LookIn:=xlValues)
    If Not A Is Nothing Then
        PA = A.Address
        Do
            If A.Row = LI Then GoTo suite
            LI = A.Row
            MsgBox "trouvé en " & A.Address(0, 0)
suite:
            Set A = .FindNext(A)
        Loop While Not A Is Nothing And A.Address <> PA
    End If
End With
End Sub

Public flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
Application.EnableEvents = False
tx = [E3]
lig = 8
[A8:J400].ClearContents
'Stop
Set plage = Sheets("base de donnée").Range("T2:T90")
For Each cel In plage
 flag = 0
 k = cel.Value
 If k = "" Then Application.EnableEvents = True: Exit Sub
'Stop
 For Each sh In ActiveWorkbook.Sheets
  If sh.Name = k Then A = sh.Name: flag = 1: Exit For
 Next sh
 If flag = 0 Then MsgBox ("La feuille " & k & " n'existe pas, Faire les modif nécessaires"): Application.EnableEvents = True: Exit Sub

 With Sheets(k).[L17:m96]
  Set A = .Find(tx, LookIn:=xlValues)
  If Not A Is Nothing Then
    PA = A.Address
    Do
     If A.Row <> li Then
       li = A.Row
       Range("A" & li & ":I" & li) = Sheets(k).Range("A" & A.Row & ":I" & A.Row).Value
       lig = lig + 1
     End If
     Set A = .FindNext(A)
    Loop While Not A Is Nothing And A.Address <> PA
  End If
 End With
Next
Application.EnableEvents = True
End Sub