Aide concernant des saisies Userform

Private Sub CommandButton1_Click()

    Dim Plage As Range
    Dim Cel As Range
    
    With Worksheets("Feuil1")
     
        Set Plage = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp))
    
    End With
    
    For Each Cel In Plage
    
        If CLng(Cel.Value) = CLng(ComboBox3.Text) Then
        
            Cel.Offset(, IIf(ComboBox2.Text = "PIERRE 1", 2, 4)).Value = TextBox1.Text
            Cel.Offset(, IIf(ComboBox2.Text = "PIERRE 1", 1, 3)).Value = ComboBox1.Text
    
            Exit For
            
        End If
        
    Next Cel

End Sub