Sub extract()
Dim feuil As Worksheet
Dim nbLignes As Integer
' récupération nombre lignes non vides (en se basant sur la colonne H)
' dans la page d'accueil pour extraire à partir de la ligne suivante
nbLignes = Sheets("Accueil").Range("H1048576").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 d'accueil
For Each feuil In ThisWorkbook.Sheets
If Not feuil.Name = "Accueil" Then
' récupération de la dernière ligne non vide de la feuille scannée (en se basant sur la colonne H)
lastLigneFeuil = feuil.Range("H1048576").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 H1 ... Hx contient la valeur "A relancer"
' alors on copie la ligne entière dans la prochaine ligne vide de la page d'accueil
If feuil.Cells(x, 8).Value = "A relancer" Then
feuil.Cells(x, 8).EntireRow.Copy Destination:=Sheets("Accueil").Cells(nbLignes + 1, 1).Offset(trig, 0).EntireRow
trig = trig + 1
End If
Next
End If
Next feuil
End Sub