Simplification formules en VBA

Bonjour le forum,

J'ai un fichier excel qui doit envoyer des renseignements via outlook,, le problème est que j'ai plus d'une centaine de client, serait il possible de simplifier ces formules dans vba

Merci

Salut, essaye :

Sub Mail()
    Dim OL As Object
    Dim OLmail As Object
    Dim Texte As String
    Dim i As Integer
    Set OL = CreateObject("Outlook.Application")
    For i = 0 To 2
    Set OLmail = OL.CreateItem(0)
    Texte = Texte & Range("D" & (i + 3)) & vbCrLf & vbCrLf
    Texte = Texte & "" & vbCrLf
    Texte = Texte & "Sinçères salutations" & vbCrLf
        With OLmail
        .to = Range("F" & (i + 3))
        .Cc = Range("G" & (i + 3))
        .Subject = Range("E" & (i + 3)) & " - " & " N° Dossier: " & Range("H3").Text
        .Body = Texte
        .Display
    End With
    Next i
End Sub

salut kant1

Merci pour la réponse, mais il y a un petit souci, la macro envoie tous les messages qui se trouve dans excel, or je veux que ça sois moi qui décide d'envoyer quel message parmi tout ce de la liste