Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
dim 5OK as boolean
'Apparition message quand 5 numéro ont été sélectionnés
If Sheets("Page du client").Range("AL101") = 5 and 5OK=false Then
MsgBox "Vous avez sélectionné tous vos numéros"
5OK=true
Exit Sub
End If