Bonjour à tous, Je suis nouveau dans le monde Autodesk et j'aimerais pouvoir faire un petit programme en Microsoft vb6 pour inserer un bloc dans un fichier autocad 2005 en gardant visualusé le bloc au bout de ma souris. actuellement mon bloc apparait seulement quand celui-ci est placé: Dim iApp As AcadApplication If iApp Is Nothing Then On Error Resume Next Set iApp = GetObject(, "Autocad.Application") If Err Then Err.Clear On Error GoTo 0 Set iApp = CreateObject("Autocad.Application") End If On Error GoTo 0 iApp.Visible = True End If Dim insertionPnt As Variant On Error Resume Next insertionPnt = iApp.ActiveDocument.Utility.GetPoint(, "donner le point : ") Set blockRefObj = iApp.ActiveDocument.ModelSpace.InsertBlock(insertionPnt, Text1.Text, 1#, 1#, 1#, 0) Merci à celui qui peut m'aider Jtoto [Edité le 3/2/2005 par jtoto]