Sub extract()
Dim feuil As Worksheet
Dim nbLignes As Integer
' récupération nombre lignes non vides (en se basant sur la colonne Z)
' dans la page Resultat pour extraire à partir de la ligne suivante
nbLignes = Sheets("Resulta").Range("Z20").End(xlUp).Row
Dim lastLigneFeuil As Integer
Dim plageCellules As Range
Dim trig As Integer
trig = 0
' boucle sur chaque feuille du classeur hors mis la feuille Base
For Each feuil In ThisWorkbook.Sheets
If Not feuil.Name = "Resultat" Then
' récupération de la dernière ligne non vide de la feuille scannée (en se basant sur la colonne Z)
lastLigneFeuil = feuil.Range("Z20").End(xlUp).Row
' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille scannée
For x = 1 To lastLigneFeuil
' si la cellule en Z1 ... Zx contient la valeur "Toto"
' alors on copie la ligne entière dans la prochaine ligne vide de la page Resulta
If feuil.Cells(x, 26).Value = "Toto" Then
feuil.Cells(x, 26).EntireRow.Copy Destination:=Sheets("Resulta").Cells(nbLignes + 1, 1).Offset(trig, 0).EntireRow
trig = trig + 1
End If
Next
End If
Next feuil
End Sub