Re Delyric
Avec ceci tu devrais trouver ton bonheur, j'ai modifier ton code :
Private Sub Typecompo_Click()
'Ecrire en colonne F (P4, P3 ou AMD)
'Si colone B contient (socket 467, socket 370 ou socket A)
Dim cellule As Range, valeur As String
On Error Resume Next
For Each cellule In Range("b1", Range("b65000").End(xlUp))
cellule.Offset(0, 4) = ""
valeur = "": valeur = Application.WorksheetFunction.Find("socket 478", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 4) = "P4"
valeur = "": valeur = Application.WorksheetFunction.Find("socket 370", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 4) = "P3"
valeur = "": valeur = Application.WorksheetFunction.Find("socket A", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 4) = "Amd"
Next cellule
End Sub