Probleme VBA Ecxel

J'ai un souci avec mon code vba, svp aidez moi c'est urgent!!

le code d'erreur "erreur d'execution '424' objet requis"

Sub Prime_assu()

Dim part_age As Double
Dim part_sex As Double
ReDim Tableau_Résultats(43, 1) As Variant

Worksheets("BD").Activate

For i = 4 To 43

Sexe = Cells(i, "F").Select
If Sexe = "M" Then
part_sex = Worksheets("Seuils").Range("D4")
Else
part_sex = Worksheets("Seuils").Range("D5")
End If

Age = Cells(i, "E").Select
If (Age < 26 & Age > 17) Then
part_age = Worksheets("Seuils").Range("B4")
ElseIf (Age < 50 & Age > 25) Then
part_age = Worksheets("Seuils").Range("B5")
Else
part_age = Worksheets("Seuils").Range("B6")
End If

Worksheets("BD").Activate

Tableau_Résultats(i - 4, 1).Value = (part_sex * part_age )

Cells(i - 4, "K").Value = Tableau_Résultats(i - 4, 1)

Next i

End Sub