Renseigner des colonnes depuis un formulaire et comparer valeurs

Private Sub CommandButton1_Click()
Dim O As Object 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim R As Range 'déclare la variable R (Recherche)

Set O = Sheets("Feui1") 'définit l'onglet O (à adapter)
Set PL = Sheets("Feuil2").Range("A1:A100") 'définit la palge PL (à adapter)
Set R = PL.Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R
If R Is Nothing Then 'condition : si aucune occurrence n'est trouvé dans la plage PL
    'renvoie la valeur de la TextBox1 dans la première cellule vide de la colonne 1 (=A)
    O.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
Else 'sinon
    'renvoie la valeur de la TextBox1 dans la première cellule vide de la colonne 2 (=B)
    O.Cells(Application.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
End If
End Sub

Private Sub CommandButton1_Click()
Dim O As Object 'déclare la variable O (Onglet)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim PL As Range 'déclare la variable PL (PLage)
Dim R As Range 'déclare la variable R (Recherche)

Set O = Sheets("Feui1") 'définit l'onglet O (à adapter)
'définit la cellue de destination DEST, première cellue vide de la colonne 1 (=A) de l'onglet O
Set DEST = O.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
Set PL = Sheets("Feuil2").Range("A1:A100") 'définit la palge PL (à adapter)
DEST.Value = Me.textbox1.Value 'renvoie le nom dans la cellule DEST
Set R = PL.Find(Me.textbox2.Value, , xlValues, xlWhole) 'définit la recherche R
If R Is Nothing Then 'condition : si aucune occurrence n'est trouvé dans la plage PL
    'renvoie la valeur de la TextBox2 dans DEST décalée d'une colonne à droite (colonne B)
    DEST.Offset(0, 1).Value = Me.textbox2.Value
Else 'sinon
    'renvoie la valeur de la TextBox2 dans DEST décalée de deux colonnes à droite (colonne C)
    DEST.Offset(0, 2).Value = Me.textbox2.Value
End If
End Sub