Demande d'aide pour rendre une base de données dynamique Merci

[TILL81]

Bonjour à tous,
En ce moment, je travaille sur un code vba qui permet la saisie de données mais celui-ci est assez statique comme vous le pouvez le voir. Mon boss me demande de le rendre dynamique, c'est à dire les modifications en cas d’ajout d’un équipement ou paramètre doivent être rapides à réaliser.

Si vous pouvez m'aider, ça serait tout simplement génial,
Merci

(en rouge ce qui n'est pas dynamique) mais j'ai voulu insérer mon code pour une meilleure compréhension


Private Sub Save_Button_Click()

Call Afficher

Application.ScreenUpdating = False

If Name_FT.Caption = "Name Surname" Then

MsgBox ("Complete Name and Surname")

Else

If Site.Caption = "" Then

MsgBox ("Complete Site Identification")

Else

If Room.Value = "" Or Building.Value = "" Or Plug_Id.Value = "" Then

MsgBox ("Fill all fields")

Else

Sheets("Plug_Bui_Room").Select
Last_Line = Range("A1").End(xlDown).Row

If Last_Line = 65536 Then
Last_Line = 1
End If

Range("A" & Last_Line + 1).Value = Label8.Caption
Range("B" & Last_Line + 1).Value = Name_FT.Caption
Range("C" & Last_Line + 1).Value = Site.Caption
Range("D" & Last_Line + 1).Value = Building.Value
Range("E" & Last_Line + 1).Value = Room.Value
Range("F" & Last_Line + 1).Value = Plug_Id.Value
Range("G" & Last_Line + 1).Value = Comments.Value


Sheets("FT Report").Select
Last_Line = Range("A1").End(xlDown).Row

If Last_Line = 65536 Then
Last_Line = 1
End If

Range("A" & Last_Line + 1).Value = Label8.Caption
Range("B" & Last_Line + 1).Value = Name_FT.Caption
Range("C" & Last_Line + 1).Value = Site.Caption
Range("D" & Last_Line + 1).Value = Building.Value
Range("E" & Last_Line + 1).Value = Room.Value
Range("J" & Last_Line + 1).Value = Plug_Id.Value
Range("M" & Last_Line + 1).Value = Comments.Value

Call Reinit

End If
End If
End If

Sheets(1).Select
Call Masquer
Application.ScreenUpdating = True

End Sub