Je n'ai pas testé le code mais j'imagine qu'avec une boucle correctement mise en place sa devrait mieux fonctionner .
Sub Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Mail2 = ActiveSheet.Range("AC4:AC35").Value
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
For Each c In Mail2
With oOLMsg
.To = c
.Subject = "HEURE - " & nomSemaine
.Importance = 1
Texte = "<FONT face='Arial' size=2>Bonjour, "
Texte2 = "<br><br><FONT face='Arial' size=2>N'oubliez pas d'importer vos heures pour la semaine " & nomSemaine & " !"
Texte3 = "<br><br><FONT face='Arial' size=2>??"
.HTMLBody = Texte
.HTMLBody = .HTMLBody & Texte2
.HTMLBody = .HTMLBody & Texte3
.Display
End With
Next c
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub