Sans grande conviction essayez ceci
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cellule In Range("C37:AG37")
If cellule <= 9 Then
If Weekday(Cells(46, cellule.Column), vbMonday) = 6 Or Weekday(Cells(46, cellule.Column), vbMonday) = 7 Then
MsgBox ("ATTENTION , le Nombre de Superviseurs est inférieur à 8, pour contrôler l'ensemble des Vols de Matinée, Merci de rectifier")
End If
End If
Next cellule
End Sub
En remplaçant le chiffre 46 par le numéro de la ligne ou se trouve votre quota de personne et au passage, salutation si c'est bien d'avion que vous parlez (j'ai travaillé dans un aéroport durant quelques temps)