Bonjour,
Je pense que c'est un problème de version peut-être. Quelle est votre version d'Excel ?
Sinon, pour aller au plus simple, mettez la fonction en commentaire:
Sub OteCroix(UF As UserForm)
' #If Win64 Then
Enlève la croix rouge de l'UF
' Dim hWnd As Longptr
' hWnd =...