Private Sub OK_Click()
If Trim(RefProduit) = "" Then Exit Sub
Dim c As Range
Set c = Sheets("BDD").Range("REFS_PRODS").Find(what:=Trim(RefProduit), LookIn:=xlValues, lookAT:=xlWhole, searchorder:=xlByRows)
If Not c Is Nothing Then
DesProduit = c.Offset(0, 1) 'les différents labels
CCactuel = c.Offset(0, 6)
RefMatiere = c.Offset(0, 2)
DesMatiere = c.Offset(0, 4)
TempMoulage = c.Offset(0, 3)
End If
End Sub