Activation automatique d'une cellulle

bonjour a tous,

afin de pouvoir finir le petit projet que j'ai j ai encore besoin de votre aide...

j'aurais besoin de trouver l’erreur dans mon code, car il ne fait rien....

Sub commentaires_notes()

       'Déclaration des variables
       Dim billard As Integer, numero As Integer

       'Valeurs des variables
       billard = Cells(1, 7)
       numero = Range("T5").Row

    If IsEmpty("T5") And billard < 1 Then   'SI CONDITION VRAIE

      Range(Cells(numero, "T")) = billard

    Else 'SI CONDITION FAUSSE

    End If

End Sub

ce que j'aimerais c'est que le chiffre mis en "G1" se mette automatiquement a partir de "T5" et sur chaque ligne de "T" si les condition que le chiffre est plus grand que 1 et que la case juste au dessus est remplie....

je vous joins mon fichier j'espere que vous comprendrez ma demande

merci deja a ceux qui voudront bien mm aidez

Bonjour

c'est que le chiffre mis en "G1" se mette automatiquement a partir de "T5" et sur chaque ligne de "T" si les condition que le chiffre est plus grand que 1 et que la case juste au dessus est remplie....

En gros on met le chiffre de G1 dans toute la colonne T ??

Dans l'exemple du fichier, il n'y a aucune donnée en T, donc on met le chiffre 1 de T5 à Txxx ??

Cordialement

merci