Sub Generer_Code_Barre2()
'https://excel-downloads.com/threads/generation-automatique-code-barre-ean13.20084276/post-20657419
Dim DerLig As Long
Dim CodBar As String
DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
' CodBar = EAN13$(Left(Range("C" & DerLig), 12))
CodBar = EAN13$(Left(Range("C" & i), 12))
Range("D" & i) = CodBar
Next i
End Sub