Ou est mon erreur ? please

Bonjour à tous !

J'essai de "tranformer" des lignes VBA R1C1 en WorksheetFunction
Mais je pense qu'il y a des erreurs ...

pouvez vous jetez un coup d'oeil ! please !

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/10/2012 par '

Origine ( tiré d'une fonction Excel ):

'Range("R138").Select
'ActiveCell.FormulaR1C1 = "=COUNTIF(R[-34]C:R[-4]C,""Oui"")"
'Range("R139").Select


Par celle là :

Application.WorksheetFunction.CountIf (Range("R107:R137)""Oui"))
Range("R143").Select
Selection.NumberFormat = "h:mm;@"
End Sub


Merci !!