Salut
avec
Dim val As String
Dim info As String
val = 1
Do While val < 73
Sheets('recap').Range('A' & val).Value = 'txt_830_' & val & '.Text'
val = val + 1
Loop
ça à l'air de marcher
Bye
Message édité par: Dugenou, à: 20/10/2005 20:44
Message édité par: Dugenou, à: 20/10/2005 20:45