Formule si dans VBA jusqu'a derniere cellule non vide

Bonjour,
j'essaye de faire une formule "si" d'Excel dans du VBA. elle doit se faire jusqu'à la dernière cellule non vide.
Je souhaite démarrer la formule à partir de W6.
si( G (donc à partir de G6) <=365; U ( à parti de U6); 0)
J'ai essayé ca mais cela ne fonctionne pas :/

Sub risque_total_moins1an()
Dim derniereligne As Long
Dim ligne As Long

derniereligne = Range("G" & Rows.Count).End(xlUp).Row
For ligne = 6 To derniereligne
    With thiswoorkbook.Sheets("Risque Client")
    .Range("W" & ligne).Borders.Value = 1
    .range("w" & ligne).value= if("G"<=365;"u";0)
    End With
Next lig
End Sub

Bonjour un fichier exemple serait plus clair.

Même pas sur que la boucle soit utile pour copier une formule alors quelle pourrait vérifier la condition directement avant de remplir

la case en colonne W.

Bonjour,

Teste comme ceci

Sub risque_total_moins1an()
Dim derniereligne As Long
Dim ligne As Long

derniereligne = Range("G" & Rows.Count).End(xlUp).Row
  For ligne = 6 To derniereligne
    With Sheets("Risque Client")
      .Range("W" & ligne).Borders.Value = 1
      If .Cells(ligne, "G") <= 365 Then .Cells(ligne, "W") = "u" Else .Cells(ligne, "W") = 0
    End With
  Next ligne
End Sub

merci de ta réponse :) je ne peux pas envoyer mais de fichier en revanche une capture d'écran est possible

Je dois mettre dans la colonne w le résultat de la formule : Si G<=365 copier la colonne U sinon mettre 0.

Toute cela doit démarrer à la ligne 6 et se terminer à la derniere cellule non vide

merci de ta réponse m12, j'ai adapter ton code et il fonctionne merci beaucoup à bientôt :)