Private Sub Worksheet_Activate()
tablo = Sheets("Feuil1").[A1].Resize(Application.CountA(Sheets("Feuil1").[A:A]), 1)
For x = LBound(tablo) To UBound(tablo)
tablo(x, 1) = tablo(x, 1) & " "
Next x
Sheets("Feuil2").[A1].Resize(UBound(tablo), 1) = tablo
End Sub