Sub Boucle_Test_V2()
Dim Feuille As Worksheet
Select Case Sheets("Mail").Range("G5").Text
Case Is = "Tous"
For Each Feuille In Worksheets
If IsNumeric(Feuille.Name) Then
Destinataire = Application.VLookup(Feuille.Name * 1, Sheets("Mail").Range("B4:C37"), 2, False)
envoiemail Feuille.Name
End If
Next
Case Else
Destinataire = Sheets("Mail").Range("G9").Text
envoiemail Sheets("Mail").[G5].Text
End Select
End Sub