Sub verif_hotel()
' cette macro vérifie que l'hotel choisi pour l'as est bien celui
' dans lequel on tente de coller les noms
Nomhotel = Range("L6").Value
With Workbooks("Gestion-Hotels V4.xls")
lhotelactif = .Range("D6").Value
If Nomhotel <> lhotelactif Then
connerie = MsgBox("ATTENTION : Vous tentez d'affecter une personne dans un hotel qui difère de celui présent dans la fiche d'équipe " _
& .Range("L6").Value & ". Vous êtes dans la feuille de l'hotel : " _
& lhotelactif & ". Il a une erreur, Verifiez!...", vbCritical + vbOKOnly, _
"ERREUR DANS LE CHOIX DE L'HOTEL")
End With
Range("L5").Value = "stop" ' pour récupérer la marque d'arrêt dans l'autre procédure
Exit Sub
End If
End Sub