Private Sub Nom_Change()
For j = 2 To 10
Controls("box" & j).Value = ""
Next j
CheckBox1 = False
With Worksheets("ETAT")
For lig_no = 4 To lig
If Nom = .Cells(lig_no, 1).Value And .Cells(lig_no, "L").Value <> "ü" Then
For k = 2 To 10
Controls("box" & k).Value = .Cells(lig_no, k).Value
Next k
If .Cells(lig_no, 11) = "X" Then CheckBox1 = True
Exit Sub
End If
Next lig_no
End With
End Sub