Private Sub CP_Change()
ValCP = Val(userform2.CP)
With Sheets("dossier")
If Application.CountIf(.[B:B], ValCP) > 0 Then
Lcp = Application.Match(ValCP, .[B:B], 0)
userform2.Client = .Cells(Lcp, "C")
userform2.Film = .Cells(Lcp, "F")
userform2.LaizeLap = .Cells(Lcp, "E")
End If
End With
End Sub