VBA RECHERCHEV Valeur_Proche sur date

With Worksheets("Calendar")
    .Range("B:B").NumberFormat = "dd/mm/yyyy"
End With

'
' A partir d'ici
'
  With Worksheets("5-9-12")
    Set g = .Range("N" & .Range("N65536").End(xlUp).Row)
  End With
  
  With Sheets("Calendar")
    Set Plage = .Range("B2:D" & .Range("B65536").End(xlUp).Row)
  End With
  '
  ' VLookup retourne une erreur si ne trouve pas la donnée
  '
  On Error Resume Next
  Do While g.Row > 1
    If g <> "" Then
      h = WorksheetFunction.VLookup(g, Plage, 3, True)
      If Err.Number = 0 Then
        g(1, 3) = h
      End If
      Err.Clear
    End If
    Set g = g(0, 1)                                                           ' Recule d'une ligne
  Loop
  '
  ' jusqu'ici
  '
Application.ScreenUpdating = True
End Sub

  Dim H1
Do While g.Row > 1
    If g <> "" Then
      H1 = WorksheetFunction.VLookup(g, Plage, 3, True)
      If Err.Number = 0 Then
        g(1, 3) = H1
      End If
      Err.Clear
    End If
    Set g = g(0, 1)                                ' Recule d'une ligne
 Loop