Condition multiple

Option Explicit
'macro d'appel
Sub maMacro()
    MsgBox OK(Range("B6"))
End Sub

Private Function OK(Target As Range) As String
Dim Sont_Dans As Boolean
    With Target
        Sont_Dans = .Offset(0, -1) <> "" And InStr(UCase(.Offset(0, 1)), "AUSSI") > 0
    End With
    OK = IIf(Sont_Dans = 0, "N", "Y")
End Function

=OK(B6)

Option Explicit
'macro d'appel
Sub maMacro()
If TonTest Then
    MsgBox OK(Range("B6"))
End If
End Sub

Private Function OK(Target As Range) As String
Dim Sont_Dans As Boolean
    With Target
        Sont_Dans = .Offset(0, -1) <> "" And InStr(UCase(.Offset(0, 1)), "AUSSI") > 0
    End With
    OK = IIf(Sont_Dans = 0, "N", "Y")
End Function

Sub AppelFonction()
Dim i&
'pour les lignes de 1 à 10
    For i = 1 To 10
        Range("B" & i) = OK(Range("B" & i))
    Next i
End Sub

Private Function OK(T As Range) As String
    'si la cellule ciblée n'est pas située Colonne B
    If T.Column <> 2 Then MsgBox "Le Range : " & T.Address & " n'est pas en colonne B": Exit Function
    'Si ma cellule en A et C est vide alors B est vide
    'Si ma cellule est vide en A et contient en C un texte alors B est vide
    If T.Offset(0, 1).Value = "" Then OK = "": Exit Function
    'Si ma cellule contient du texte en A et vide en C alors B est rempli par Y
    If T.Offset(0, -1) <> "" And T.Offset(0, 1).Value = "" Then OK = "Y": Exit Function
    'Si ma cellule contient du texte en A et contient le mot "Aussi" en C alors B est rempli par N
    If T.Offset(0, -1) <> "" And InStr(UCase(T.Offset(0, 1)), "AUSSI") > 0 Then OK = "N"
End Function