Bonjour
J'ai ajouté deux lignes pour le changement de feuille et deux lignes pour éviter le rafraichissement à ta macro
Sub InsererLesDonneesDansLaFeuille(ByVal LeNom As String)
'*** Déclarations des variables locales ***
Dim LaDerniereLigne As Integer
Application.ScreenUpdating = False
'*** Fin des déclarations des variables locales ***
Sheets("bdg").Activate
LaDerniereLigne = Sheets("bdg").Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
Range("E" & LaDerniereLigne).Value = LeNom
Sheets("show").Activate
Application.ScreenUpdating = True
End Sub