Erreur avec cells.find

Private Sub CommandButton1_Click()
Dim maDate As Long 'Date
Dim x As Integer
 
maDate = CDate(Sheets("Tirage").Range("W3"))
 
Repete:
 
On Error Resume Next
x = Application.WorksheetFunction.Match(maDate, Worksheets("Update").Columns(1), 0)
On Error GoTo 0
 
If x > 0 Then
    [B11] = Day(Worksheets("Update").Cells(x, 1))
    [B12] = Month(Worksheets("Update").Cells(x, 1))
    [B13] = Year(Worksheets("Update").Cells(x, 1))
    Exit Sub
Else
    maDate = maDate + 1
End If
 
GoTo Repete
 
End Sub

Repete:
 
Madate = Format(CDate(Sheets("Tirage").Range("W3").Value), "mm/dd/yyyy")
 
If Not Sheets("Update").Cells.Find(Madate) Is Nothing Then
    [B11] = Day(Sheets("Tirage").Range("W3"))
    [B12] = Month(Sheets("Tirage").Range("W3"))
    [B13] = Year(Sheets("Tirage").Range("W3"))
    Exit Sub
Else
    Sheets("Tirage").Range("W3") = Sheets("Tirage").Range("W3") + 1
End If
 
GoTo Repete

Private Sub CommandButton1_Click()
 
Dim MaDate As String
Dim MaCell As Range
 
Repete:
 
MaDate = Format(Sheets("Tirage").Range("W3"), "Short Date")
Set MaCell = Sheets("Update").Cells.Find(What:=CDate(MaDate),LookAt:=xlWhole)
 
If Not MaCell Is Nothing Then
[B11] = Day(Range("W3"))
[B12] = Month(Range("W3"))
[B13] = Year(Range("W3"))
Set MaCell = Nothing
Exit Sub
Else
Sheets("Tirage").Range("W3") = Sheets("Tirage").Range("W3") + 1
Set MaCell = Nothing
End If
 
GoTo Repete
 
End Sub

[SIZE=2][COLOR=NAVY]If Not[/COLOR] Sheets("Update").Cells.Find(Madate, [B]LookAt[/B]:=[B]xlWhole[/B]) [COLOR=NAVY]Is Nothing Then[/COLOR]
[/SIZE]