If LCase(Cells(4, 2)) = "femme" _
And (Cells(17, 11) < 45 Or Cells(17, 11) > 60) Then
Set c = Cells(17, 11)
rouge c
ElseIf LCase(Cells(4, 2)) = "femme" _
And (Cells(17, 11) > 45 Or Cells(17, 11) < 60) Then
Set c = Cells(17, 11)
bleu c
ElseIf LCase(Cells(4, 2)) = "homme" _
And (Cells(17, 11) < 60 Or Cells(17, 11) > 65) Then
Set c = Cells(17, 11)
rouge c
ElseIf LCase(Cells(4, 2)) = "homme" _
And (Cells(17, 11) > 60 Or Cells(17, 11) < 65) Then
Set c = Cells(17, 11)
bleu c
End If
End Sub