Rechercher ligne et extraire sur une autre page

Bonjour,

Je cherche le code à entrer en vba pour rechercher les lignes qui correspondent aux mêmes valeurs d'une colonne, et extraire cette ligne sur une seconde feuille :

Je joint un fichier au hasard, juste pour expliquer :

Je souhaite extraire sur la feuille "Planning" les lignes de la page "Liste Archive " qui correspondent à la date du jour.

Quelqu'un sait comment faire ?

Bonjour,

Ci-joint une macro permettant d'extraire les lignes qui correspondent à la date du jour

Cordialement

Salut voici un code vba qui permet de rechercher tout type de valeur ensuite transpose dans une nouvelle feuille du classeur .

'yoyo59
Sub LignesMotRecheche()
Dim S As Worksheet
Dim rep
Dim R As Range
Dim var
Dim dep&
Dim i&
Dim j&
Dim k&
Dim cpt&
Dim T()
Dim A$
Dim B$
rep = Application.InputBox("Tapez le mot à rechercher", "Lignes contenant le mot recherché")
If rep = False Or rep = "" Then Exit Sub
B$ = LCase(rep)
Set R = ActiveSheet.UsedRange
dep& = R.Row
var = R
For i& = 1 To UBound(var, 1)
  For j& = 1 To UBound(var, 2)
    A$ = LCase(Trim(var(i&, j&))) 'commodité d'écriture
    If InStr(1, A$, B$) > 0 Then
      cpt& = cpt& + 1
      ReDim Preserve T(1 To UBound(var, 2) + 1, 1 To cpt&)
      T(1, cpt&) = i& + dep& - 1
      For k& = 1 To UBound(var, 2)
        T(k& + 1, cpt&) = var(i&, k&)
      Next k&
      Exit For
    End If
  Next j&
Next i&
If cpt& = 0 Then
  MsgBox "Aucune occurence de ''" & rep & "'' n'a été trouvée."
  Exit Sub
Else
  Set S = Sheets.Add(before:=ActiveSheet)
  Set R = S.Range(S.Cells(1, 1), S.Cells(UBound(T, 2), UBound(T, 1)))
  R = Application.WorksheetFunction.Transpose(T)
End If
End Sub

Cordialement .

Merci je vais essayer avec vos programmes