Vba, mail, code

Bonjour,


J'ai codé une macro (que vous trouverez à la fin), elle permet de générer des mails automatiquement. J'aimerai ajouter un code pour que cette macro s'applique a toutes les lignes que je désire et non pas seulement à la première (le Range("E2" & Rows) ne semble pas marcher car cela ne s'applique que pour la ligne 2) . Pouvez vous m'aider?

Sub Display_Mail()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)

With objMail
.To = Range("B2" & Row)
.Subject = "House View Oktober 2021"
.body = strbody
.Attachments.Add "C:\Users\X"
.Display
' Replace Desplay by .Send to automatically send the messages

End With

End Sub