Cellule de userform vide

Sub Create_Workbook_RPL()
UserForm1.Show
Dim nivurg As String
Dim controlemachine As Integer

'Récupérer le nom du fichier de la BdD
nom_BdD = ActiveWorkbook.Name

'UserForm1.Show
'If MsgBox("You're going to do an RPL", vbYesNo + vbQuestion, "Edit an RPL") = vbYes Then
'End If

controlemachine = 1
Do Until Workbooks(nom_BdD).Worksheets("famille 1").Range("B" & controlemachine).Value = designation Or controlemachine = 200
controlemachine = controlemachine + 1
Loop

If controlemachine = 200 Then
    MsgBox "This machine does not exist yet!"
    Exit Sub
End If

If controlemachine = 1 Then
    MsgBox " Please choose a machine"
    Exit Sub
End If


End Sub