Private Sub btn_ajouter_site_Click()
Dim der_lig_vide As Integer
Dim trouv_colonne As Integer
Dim nouveau_site As String
nom_fichier = ActiveWorkbook.Name
nom_feuille = "CONFIG"
der_lig_vide = Range("Tableau_Site[SITE]").End(xlDown).Row + 1
trouv_colonne = Range("Tableau_Site[SITE]").Column
nouveau_site = InputBox("Nouveau site")
Cells(der_lig_vide + 1, trouv_colonne).Value = nouveau_site
End Sub