VBA - Répéter une formule sur chaque ligne

Dim plage As Range 'Plage de toutes les lignes et colonne du tableau A11:A...
Dim r As Range 'Représente la ligne parcourue du tableau
With Feuil1 'Travailler sur la feuille 1
    
    Set plage = .Range("B11:J" & .Range("B" & Rows.Count).End(xlUp).Row)
    For Each r In plage.Rows 'Pour chaque ligne de la plage
        
        If r.Cells(1, 7).Value = 1 Then 'si la cellule de la septième colonne = 1
            r.Cells(1, 9) = Date 'mettre la date du jour dans la neuvième colonne
        Else
            'sinon copier toute la ligne sous le tableau
            r.Copy .Range("B" & .Rows.Count).End(xlUp).Offset(1)
        End If
    Next
    Application.CutCopyMode = xlCopy
End With