XL 2019 Ouvrir un 2°Form à partir du Form1

#If VBA7 Then
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If
Dim WithEvents T As TimerRd.CTimer
Private Sub UserForm_Initialize()
    Set T = New TimerRd.CTimer
    T.Interval = 100
    T.Start
 End Sub
Private Sub T_Tic(ByVal TickCount As Long)
If GetAsyncKeyState(vbKeyM) <> 0 Then Msgbox "Touche M"
End Sub