Re :
C'est bon, j'ai remplacé le MsgBox :
MsgBox "Left : " & .Left & vbCrLf _
& "Top : " & .Top & vbCrLf _
& "Width : " & .Width & vbCrLf _
& "Height : " & .Height & vbCrLf, vbOKOnly, ""
par :
Workbooks("MonFichier.xlsm").Sheets("feuil1").Range("A1").Value = .Width & vbCrLf
Workbooks("MonFichier.xlsm").Sheets("feuil1").Range("A2").Value = .Height & vbCrLf
C'est exactement ce que je voulais, merci beaucoup Amadéus.