Rajout sur un programme

Bonsoir tout le monde,
Je tiens à préciser que je débute en programmation VBA ! J'ai réalisé une fonction pile/face qui fonctionne et je voudrait créer un tournoi de pile/face.
C'est à dire que je veux que sur 4 joueurs, celui qui est en A1 affronte celui qui est en A2 et que celui en A3 affronte le joueur en A4. Et que les prénoms des deux gagnants se placent dans les cellules B1 et B2.
Malgré plusieurs tentatives, je n'y arrive pas..

Ma fonctione est la suivante :
Function Pileface() As Integer
Dim x As Double
x = Rnd()
Randomize
If x < 1 / 2 Then
Pileface = 0
Else
Pileface = 1
End If
End Function

Sub tirage()
If Pileface() = 1 Then
MsgBox ("face")
Else
MsgBox ("pile")
End If
End Sub

Cordialement, Arthur