For noRow = 2 To 11 'Vérifie les lignes 2 à 11 dans ma feuille Excel
[INDENT]For noColumn = 5 To 29 Step 8 'Vérifie les colonnes 5, 13, 21 et 29 dans ma feuille Excel
[/INDENT][INDENT][INDENT]'Si la date que je cherche se trouve dans la cellule de ma feuille, alors j'entre dans mon Select Case
[/INDENT][/INDENT][INDENT][INDENT]If StartWeekDay = MySheet.Cells(noRow, noColumn).Value Then
[/INDENT][/INDENT][INDENT][INDENT][INDENT]Select Case noColumn 'Évalue le numéro de la colonne pour associer la date à la bonne catégorie
Case 5
[INDENT]Category = "A"
'Exit For 'C'est ici que j'aimerais sortir
[COLOR=blue]Goto suite[/COLOR]
des 2 boucles en même temps
[/INDENT]Case 13
[INDENT]Category = "B"
'Exit For 'C'est ici que j'aimerais sortir
[COLOR=blue]Goto suite[/COLOR]des 2 boucles en même temps
Case 21
[/INDENT][INDENT]Category = "C"
'Exit For 'C'est ici que j'aimerais sortir
[COLOR=blue]Goto suite[/COLOR]des 2 boucles en même temps
[/INDENT]Case 29
[INDENT]Category = "D"
'Exit For 'C'est ici que j'aimerais sortir
[COLOR=blue]Goto suite[/COLOR]des 2 boucles en même temps
[/INDENT]End Select
[/INDENT][/INDENT][/INDENT][INDENT][INDENT]End If
[/INDENT][/INDENT][INDENT]Next noColumn
[/INDENT]Next noRow
[COLOR=blue]suite :[/COLOR]