Bonsoir,
voici une modification possible :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cellule In Range("C37:AG37")
If cellule = 7 And Weekday(cellule.Offset(-33, 0).Value, vbMonday) > 5 Then MsgBox ("ATTENTION , le Nombre de Superviseurs est inférieur à 8 en colonne " & Mid(cellule.Address, 2, 1) & ", pour contrôler l'ensemble des Vols de Matinée, Merci de rectifier")
Next cellule
End Sub
And Weekday(cellule.Offset(-33, 0).Value, vbMonday) > 5 : trouve le numéro du jour de la date qui se trouve -33 lignes plus haut que la cellule en cours de test, si c'est supérieur à 5 (donc samedi ou dimanche) alors il y a alerte.
en colonne " & Mid(cellule.Address, 2, 1) & ", : affiche la colonne où se trouve le problème... mais pas très utile
@ bientôt
LouReeD