Macro pour appliquer DEUX formules sur les lignes actives d'une feuille

Bonjour,

Dans la ligne n°3, colonne Q, j'ai mis une formule pour que US apparaisse si colonne P remplie.
Dans la ligne n°4, colonne Q, j'ai mis une formule pour que FR apparaisse si colonne P remplie.
Et je souhaite répéter ces deux formules en alternance jusqu'en bas de la feuille tant que les lignes sont remplie.

Les formules sont les suivantes :

Dans la ligne n°3, colonne Q : =SI(P3<>"";"US";"")
Dans la ligne n°4, colonne Q : =SI(P4<>"";"FR";"")

Je souhaiterai qu'une macro applique cette logique jusqu'en bas de la feuille...

J'ai tenté cela (avec l'enregistreur) :

Sub Macro12()
'
' Macro12 Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""US"","""")"
Range("Q4").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""FR"","""")"
Range("Q5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""US"","""")"
Range("Q6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""FR"","""")"
Range("Q7").Select
End Sub

Merci beaucoup pour votre aide.

Jean-Michel