Function Nomination(Plage)
Application.Volatile
Dim Cherche As Range
Set Cherche = Plage.Columns(1).Find(Application.ThisCell.Offset(, -4))
If Not Cherche Is Nothing Then
If Cherche = "SA" Then
Nomination = "Oui" 'à adapter
Exit Function
End If
lig = Cherche.Row
Crit1 = (Application.ThisCell.Offset(, -3) >= Cells(lig, 3)) * -1
Crit2 = (Application.ThisCell.Offset(, -2) >= Cells(lig, 4)) * -1
Crit3 = (Application.ThisCell.Offset(, -1) >= Cells(lig, 5)) * -1
If Crit1 + Crit2 + Crit3 >= 2 Then
Nomination = "Oui"
Else
Nomination = "Non"
End If
Else
Nomination = "Statut non défini"
End If
End Function