Re,
Oui c'est ca!
mais sans la coloration des lignes
Option Explicit
Dim f1 As Worksheet, f2 As Worksheet, cell As Range
Dim i As Long
Sub Compare()
Set f1 = Sheets("Critères")
Set f2 = Sheets("Dates")
f2.Columns(2).ClearContents 'vide la colonne B
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Set cell = f2.Range("A:A").Find(f1.Range("A" & i), lookat:=xlWhole)
If Not cell Is Nothing Then
f2.Cells(cell.Row, 2) = f1.Cells(i, 2)
End If
Next i
End Sub
Cordialement,