Option Explicit
Dim C As Range
Private Sub CommandButton1_Click()
Set C = Sheets("Installations").Columns(1).Find(What:=InstallationIDTextBox.Value)
If Not C Is Nothing Then
C.Offset(, 1) = NoCFCTextBox
C.Offset(, 2) = DesignationTextBox
End If
Unload Me
Demandeur.Show 0
End Sub