Concatener des données

Salut mesnil2000, le fil

Une petite suggestion à la volé :


Sub concatener_spe()
Dim int_nb_fls As Integer
Dim i As Integer
Dim ws_source As Worksheet

int_nb_fls = ActiveWorkbook.Sheets.Count
Set ws_source = ActiveSheet

For i = 1 To int_nb_fls
Sheets(i).Select
If ActiveSheet.Name <> ws_source.Name Then
ws_source.Range('A2').Formula = ws_source.Range('A2').Value & '//' & Sheets(i).Range('A2').Value
End If
Next i

End Sub


Voila je ne l'ai pas vraiment testé ne connaissant pas exacterment ton besoin..

A+

Merci j'essaie