Bonsoir
Pour la création automatique il faut simplement supprimer les lignes de codes en rouge ou mettre l'apostrophe devant :
Else
Select Case MsgBox("Codes non trouvés" _
& vbCrLf & "" _
& vbCrLf & "Voulez vous les créer ?" _
, vbYesNo Or vbExclamation Or vbDefaultButton1, Application.Name)
Case vbYes
dl1 = Sheets(nomfeuille1).Range("a65536").End(xlUp).Row + 1
Sheets(nomfeuille1).Range("a" & dl1).Value = cellule.Value
Sheets(nomfeuille1).Range("a" & dl1).Offset(0, 1).Value = cellule.Offset(0,1).Value
Sheets(nomfeuille1).Range(col1 & dl1).Value = cellule.Offset(0, 2).Value
Case vbNo
End Select
A tester
JP