[Résolu] Recherche de donnée dans plusieurs feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Application.EnableEvents = False
tx = [D3]
lig = 8
[C8:D200].ClearContents
For k = 1 To Sheets.Count - 2   'ici -2 pour éviter calendrier et recherche
'If Left(Sheets(k).Name, 1) = "S" Then   'on supprime la ligne et plus bas le End if
With Sheets(k).[A3:A27]
Set c = .Find(tx, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(lig, 3) = Sheets(k).Name
Cells(lig, 4) = Sheets(k).Cells(c.Row, 5)
Cells(lig, 5) = Sheets(k).Cells(c.Row, 4)
Cells(lig, 8) = Sheets(k).Cells(c.Row, 5)
Cells(lig, 7) = Sheets(k).Cells(c.Row, 4)
lig = lig + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
'End If  'le End if à supprimer
End With
End If
Next
Application.EnableEvents = True
End Sub