XL 2019 Déplacer lignes selon contenu d'une cellule

clemcoad à dit:

Bonjour à tous !
Je cherche à déplacer une ligne sur une autre feuille en fonction du contenu d'une cellule. Cependant, j'aimerai que ce soit selon une date. C'est-à-dire, n'importe qu'elle date saisie dans telle colonne, la ligne correspondante est copiée/déplacée dans une autre feuille. J'ai déjà ce bout de code qui me permet de déplacer la ligne dans une autre feuille selon une valeur fixe :
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim i As Long
Dim J As Long
Dim K As Long
i = Worksheets("Planning integration").UsedRange.Rows.Count
J = Worksheets("test").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("test").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Planning integration").Range("F1:F" & i)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "ok" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("test").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub

En vert la partie que j'aimerai changer pour que ce soit en fonction d'une date (n'importe laquelle) plutôt qu'une valeur constante.
Merci d'avance ! Bonne journée !

Cliquez pour agrandir...

If CStr(xRg(K).Value) = "ok" Then

If IsDate((xRg(K)) Then