Bianco Verde Ciliegio Arancione
Pippo	        50	50		
Pluto	        50	50		
Paperino			100	  100
Topolino			100	  100

If Modello = Pippo and Colore = Bianco or Verde then
Pippo = 50
end if

If Modello = Pluto and Colore = Bianco or Verde then
Pluto = 50
end if

If Modello = Paperino and Colore = Ciliegio or Arancione then
Paperino = 100
end if

If Modello = Topolino and Colore = Ciliegio or Arancione then
Topolino = 100
end if

Function prova(a, b)
Dim rng As Range
Dim cel As Range
Set rng = Range("h2:h9")
For Each cel In rng
    If a & b = cel.Value & cel.Offset(0, 2).Value Then
        prova = cel.Offset(0, 4).Value
    End If
Next cel
End Function