Select Case IsFileOpen(Le_Chemin_Entier_Du_Classeur)
Case "Absent"
Rep = MsgBox("Le fichier " & vbLf & " n'a pas été trouvé pour la consolidation." & vbLf _
& "Le traitement est arrété.", vbNo + vbCritical, "Erreur")
Exit Sub
Case "Ouvert"
Rep = MsgBox("Merci de fermer le fichier " & vbLf & " avant de lancer le traitement" & vbLf _
& "Le traitement est arrété.", vbNo + vbCritical, "Erreur")
Exit Sub
End Select