Fonction Lookup Macro

Bonjour Tous le monde,

Je fait appel a votre aide sur la fonction Lookup , j'ai deux 3 feuilles sur un classeur (Données , source , Provi) , je voulait utilisé le lookup pour comparer ou chercher une date sur (Données) avec plusieurs dates sur (Sources) et si on trouve la date similaire on copie tous les données de la colonne correspondante a cette date pour la coller sur la feuille (Provi).

Merci d'avance pour votre aide .

Bonjour yassinearhezroq,

Un essai en pièce jointe:

Bonjour,

A tester.

Cdlt.

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet, ws2 As Worksheet
Dim rng As Range
Dim dt As Date, lCol As Long, lRow As Long
Dim n
    Set ws = Worksheets("Données")
    Set ws2 = Worksheets("Source")
    dt = ws.Cells(1, 2).Value
    With ws2
        lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(1).Resize(lRow, lCol)
    End With
    On Error Resume Next
    n = Application.Match(CLng(dt), rng.Rows(1), 0)
    If Not IsError(n) Then
        Me.Cells(1).Resize(rng.Rows.Count).Value = rng.Columns(n).Value
    End If
End Sub

Merci Jean-Eric et Florian pour votre proposition , il sont fonctionnel , je voulait juste actionner avec un bouton et j'ai pas réussi a transformer en macro liée a un bouton .

Merci d'avance

Bonjour,

La proposition initiale avec l'ajout d'un bouton.

Cdlt.

Merci bcq