Sub ChercherDate()
Dim Tbl()
Dim Plage As Range
Dim Cel As Range
Dim LaDate As Date
Dim Adr As String
Dim I As Integer
'date cherchée (à adapter)
LaDate = ComboBox1 & "/" & ComboBox2 & "/" & ComboBox3
'plage où s'effectue la recherche de date (colonne A)
Set Plage = Range([A2], [A65536].End(xlUp))
'recherche la date
Set Cel = Plage.Find(LaDate, , xlValues, xlWhole)
'si trouvé
If Not Cel Is Nothing Then
'colle la dernière ligne non vide sur la ligne de la date
XXXXX
End Sub