Sub Macro1()
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim o As Worksheet 'déclare la variable o (Onglet)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'déclare la variable pa (Première Adresse)
Dim dest As Range 'déclare la variable dest (DESTination)
Set cc = Workbooks("Summury.xls") 'définit la classeur cible
For Each cs In Workbooks 'boucle 1 : sur touts les classeurs ouverts
If Left(cs.Name, 4) = "team" Then 'condition 1 : si les 4 premières lettres du nom du classeur sont "team"
For Each o In cs.Sheets 'boucle 2 : sur tous les onglets du classeur source
Set r = o.Cells.Find("yes", , xlValues, xlWhole) 'définit la recherche
If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence trouvée
pa = r.Address 'définit la première adresse
Do 'exécute
'définit la cellule de destination
Set dest = cc.Sheets("Feuil1").Cells(Application.Rows.Count, 1).End(xlUp)(IIf(cc.Sheets("Feuil1").Range("A1").Value = "", 1, 2))
r.EntireRow.Copy dest 'copie la ligne entière et la colle dans la cellule de destination
Set r = o.Cells.FindNext(r) 'redéfinit la recherche (occurrence suivante)
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en pa
End If 'fin de la condition 2
Next o 'prochain onglet de la boucle 2
End If 'fin de la condition 1
Next cs 'prochain classseur de la boucle 1
End Sub