GetCurrentMethod().Name

Imports System.Data.SqlClient
Imports System.Reflection.MethodBase
Public Class Form1
    ' Variables Globale pour la feuille
    Dim DR As SqlDataReader ' Un Seul
    Dim cn As SqlConnection ' Une seule
    Dim comRech As SqlCommand ' Plusieurs
    Public methodName





    Private Sub cmdNouveau_Click(sender As Object, e As EventArgs) Handles cmdNouveau.Click
        'methodName = System.Reflection.MethodBase.GetCurrentMethod().Name
        methodName = GetCurrentMethod().Name
        MsgBox(methodName)
    End Sub