modif code vba pour ouvrir du dxf ou dwg suivant format dans fichier avec viewer

bonjour je reviens pour un petit tracas , j’arrive a ouvrir avec ce viewer du format DWG ou DXF. mais dans mon code , j'aimerais pouvoir le modifier pour savoir si il peut choisir suivant le format qui se trouve dans dossier profil DXF
merci d'avance je mets le code actuelle en dessous


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Si le double clic est fait sur la colonne j
'alors on ouvre le fichier correspondant à la commande
'si il est présent dans le répertoire "Profil DXF"
'sinon message d'erreur
If Target.Column = 10 Then

On Error Resume Next
'Workbooks.Open ActiveWorkbook.Path & "/Profil DXF/" & Target.Value & ".dxf"
Shell ("D:\Program Files\IGC\Free DWG Viewer\BravaFreeDWG.exe " & ActiveWorkbook.Path & "\Profil DXF\" & Target.Value & ".dxf"), vbMaximizedFocus
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".dxf " & Chr(34) & " n'éxiste pas dans le répertoire Profil DXF.", vbCritical, "Manque fichier profil")
Target.Select
End If
On Error GoTo 0
'D:\Program Files\IGC\Free DWG Viewer\BravaFreeDWG.exe

End If

End Sub