Bonjour Vincent
j'ai une erreur sous Office 365 64 bits
sur l'instruction : FindWindowA
Sub OteCroix(UF As UserForm)
Dim hWnd As Long
'Enlève la croix rouge de l'UF
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
& "Frame", UF.Caption)...