Incompatibilité de type lors de l'utilisation de Datediff

With Worksheets(1)
    DerLig = .Cells.Find(What:="*", _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious).Row
    With Range("A1:F" & DerLig)
        .AutoFilter Field:=var2, Operator:= _
            xlFilterValues, Criteria1:="=*Saint Jean*"
    End With
End With
With Worksheets(1)
    With .Range("_FilterDataBase")
        Set maplage = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
End With
For Each Cell In maplage.Columns(3).Cells
    If Cell <> "" And Cell.Offset(, 2) <> "" Then
        s = DateDiff("d", Cell, Cell.Offset(, 2))
        If etat > 0 Then
            Retour = Retour + 1
        End If
    End If
    Worksheets(2).Cells(11, 7).Value = Retour
Next