Vba excel

Sub EnvoiMail()
Dim Msg$, Objet$, Corps$, c as range
For each c in range("E2:E20")
    Select case c
     Case 1
        Objet = range("D2").value
        Corps = range("D3").value
     Case 2
        Objet = range("F2").value
        Corps = range("F3").value
     Case else
        Exit sub
    end select
With CreateObject("CDO.Message")
    .From = "Ton.nom@opérateur.fr"
    .To = range("B2").value
    .cc = Range("B3").value & ";" & Range("B4").value 
    .Subject = Objet
    .HTMLBody = Corps
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.club-internet.fr" 'à adapter
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update
    On Error Resume Next
    .Send
    If Err Then MsgBox "Le message n'a pas pu être expédié."
    On Error GoTo 0
End With
End Sub

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.club-internet.fr"