Sub essai()
Dim i As Long
'.....
'.....
End Sub
il te faut enregistrer tes fichiers au format :
"Fichier prenant en compte les macros", soit *.xlsm, ou au format "Classeur Excel 97-2003", soit *.xls
Function Transfert(ByVal ShtItem As String)
Dim yLge As Integer
Dim y As Byte
Dim DerligCdes As Long
Dim i As Integer
......
......
Dim col as Integer
Dim col as Byte
Public FORMATréglé, Param_Impression As Boolean