Challenge : m'aider en m'apprenant : report de données en fonction date VBA

[COLOR="DarkSlateGray"][B]Option Explicit

Private Sub Worksheet_Activate()
   tutu
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Range("A2,A6:A100")) Is Nothing Then tutu
End Sub

Private Sub tutu()
Dim tmp As Object, l As Long, oCel As Range
   With Sheets("ORIGINE")
      Set tmp = .Rows(3).Find(What:=Me.Range("A2").Value, lookat:=xlWhole)
      If Not tmp Is Nothing Then
         l = tmp.Column
         With Application: .ScreenUpdating = True: .Calculation = xlCalculationManual: End With
         Me.Range("B6:C100").ClearContents
         For Each oCel In Me.Range("A6:A100").Cells
            If Not IsEmpty(oCel) Then
               Set tmp = .Range("A6:A100").Find(What:=oCel.Value, lookat:=xlWhole)
               If Not tmp Is Nothing Then Me.Cells(oCel.Row, 2).Resize(1, 2).Value = .Cells(tmp.Row, l + 2).Resize(1, 2).Value
            End If
         Next oCel
         Set tmp = Nothing
         With Application: .Calculation = xlCalculationAutomatic: .ScreenUpdating = False: End With
      End If
   End With
End Sub[/B][/COLOR]