'Vérifier l'orthographe
Function MessageCelluleVideVérificationOrthographe(LeMessage As String, TitreMessage As String)
MsgBox LeMessage, vbInformation, TitreMessage
End Function
Sub BoutonVérificationOrthographe()
ActiveSheet.Unprotect
If [VérificationOrthographe] = 0 Then Call MessageCelluleVideVérificationOrthographe("Cellule vide", "Cellule incomplète"): Exit Sub
ActiveWindow.SmallScroll Down:=12
Range("VérificationOrthographe").Select
ActiveWindow.SmallScroll Down:=-33
Selection.CheckSpelling SpellLang:=1036
Range("F1:G1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub