Sélectionner les plages de la date du jour

Bonjour,

En colonne A du fichier d'exemple je souhaiterai sélectionner toutes les cellules contenant la date du jour.

J'ai fait un tri par ordre décroissant mais je ne vois pas comment faire ma macro pour sélectionner cette plage et la copier en colonne C.

Si quelqu'un pouvais m'aiguiller.

Bonjour,

A tester

Public Sub test()
Dim ws As Worksheet, nbRows As Long
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    With ws
        nbRows = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To nbRows
            If .Cells(i, 1) = Date Then .Cells(i, 1).Copy Destination:=.Cells(i, 3)
        Next
    End With
    Set ws = Nothing
End Sub

Bonjour Jean-Eric,

Merci pour cette macro, c'est exactement ce que je souhaitait