Sub tata()
Dim Noms As Range, i&, v(), w()
Set Noms = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(0, 1))
If Noms.Rows.Count > 1 Then
v = Noms.Value
ReDim w(2 To UBound(v), 0)
For i = 2 To UBound(v)
If IsDate(v(i, 2)) Then
Select Case v(i, 1)
Case "Albert": w(i, 0) = 360 + v(i, 2)
Case "Pierre": w(i, 0) = 180 + v(i, 2)
Case "Lionel": w(i, 0) = 180 + v(i, 2)
End Select
End If
Next
[E2].Resize(UBound(w) - 1, 1).Value = w
End If
End Sub