bonjour,
essaye ce code
Public Sub complete()
Dim DernLigne As Long
Dim parcours_ligne As Long
DernLigne = Range("F" & Rows.Count).End(xlUp).Row
For parcours_ligne = 1 To DernLigne
If Range("F:F").Cells(parcours_ligne, 1) = "" Then
Range("V:V").Cells(parcours_ligne, 1) = 0
Else
If IsDate(Range("F:F").Cells(parcours_ligne, 1)) Then
Range("V:V").Cells(parcours_ligne, 1) = 1
End If
End If
Next parcours_ligne
End Sub