Sub test()
Op = Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ")))
appv = Val(Application.Version)
EcX = 4 And Op = 6.01 And Int(appv) < 16: EcY = 4 'ecart cadre
EcX = 4 + (-9 And Op = 10 And Int(appv) > 12): EcY = EcY + (-5 And EcX < 4) 'ecart cadre
MsgBox EcX & vbCrLf & EcY
Debug.Print "windows version " & Op
Debug.Print "excel version =" & appv
Debug.Print "decalage gauche= " & EcX
Debug.Print "decalage top= " & EcY
End Sub
le résultat que tu devrais avoir sur W10windows version 6,01
excel version =15
decalage gauche= 4
decalage top= 4
windows version 10
excel version =15
decalage gauche= -5
decalage top= -1