Sub lieuxtemps()
Dim tablo() As Variant
Sheets("Feuil2").Range("A2:F" & Sheets("Feuil2").Range("A65535").End(xlUp).Row).ClearContents
tablo = Sheets("Feuil1").UsedRange.Offset(1, 0).Value
For i = LBound(tablo, 1) To UBound(tablo, 1)
'Recherche ligne avec "Nom"
If tablo(i, 1) Like "Nom*" Then
'Trouve la ligne au dessus de la ligne "Nom" et extraire dans feuille 2
Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i - 1, 1)
Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = tablo(i - 1, 2)
Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = tablo(i - 1, 3)
Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = tablo(i - 1, 4)
End If
Next i
End Sub