remplacer macro par formule

Bonjour,
Peut-on remplacer cette macro par une formule :

If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('C3') = Empty
Range('F3') = Range('B2')
ElseIf Not Intersect(Target, Range('C3')) Is Nothing Then
Range('C3') = 3
Range('C2') = Empty
Range('F3') = Range('B3')
End If

Traduction de cette macro :
Si je clic sur C2, le chiffre '3' apparait en C2, C3 reste vide et le contenu de F3 devient celui de B2.
A l'inverse, si je clic sur C3, le chiffre '3' apparait en C3, C2 reste vide et le contenu de F3 devient celui de B3.

Merci d'avance pour votre aide.