XL 2010 Extraire la ligne du dessus

[Scorpio]

Bonjour à tous,
J'ai remarqué sur le site une communication, et comme je suis pas un caïd en code, je suis intéressé par votre classeur.
Mai si je peux me permettre, j'aimerais juste apporté une correction.
En fait, lorsque je fais l'extraction des lignes se situant au dessus de la ligne contenant le "Nom", j'aimerais que le code prennent en considération plusieurs colonne, ex: colonne A,B,C,D, etc
Et aussi que le code ne supprime pas le titre dans la colonne "A", en feuille 2.
Merci à vous et à ++++

 

[vgendron]

Re hello

donc voici ton fichier avec le code adapté
j'ai mis des commentaires pour t'expliquer ce que le code fait

 

[phlaurent55]

Bonjour Scorpio,

avec ce code: qui permet de garder la ligne des titres en feuille 2

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

à+
Philippe

Edit: Bonjour vgendron