Faire une macro pour remplir les cellules d'une colonne automati

Sub CopieMaFormule()
Dim LigneDebut As Byte
Dim LigneFin As Long, Ligne As Long
Dim MaFormule As String
    'Nom de la feuille (à adapter)
    With Worksheets("Feuil1")
        'Numéro de la première ligne de la plage à traiter
        LigneDebut = 2
        'Numéro de ligne de la dernière cellule renseignée dans la plage à traiter
        LigneFin = .Range("I" & Rows.Count).End(xlUp).Row
        'Formule à copier
        MaFormule = "=TODAY()"
        'Boucle sur la plage à traiter
        For Ligne = LigneDebut To LigneFin
            'Si la cellule de la colonne I n'est pas vide
            If Not IsEmpty(.Range("I" & Ligne)) Then
                'Copie la MaFormule dans la colonne J
                .Range("J" & Ligne).Formula = MaFormule
            End If
        Next Ligne
    End With
End Sub