Sub travdem()
Dim Cellule1 As Range, Plg1 As Range
Dim Nomfeuille1 As String, Col1 As String, data1 As String
'parametre
Nomfeuille1 = "Feuil1"
Col1 = "A"
'code
With Sheets("Feuil1")
For Each Cellule1 In .Range(Col1 & "2:" & Col1 & .Range(Col1 & .Rows.Count).End(xlUp).Row)
data1 = data1 & Chr(34) & Cellule1 & Chr(34) & ","
Next Cellule1
MsgBox data1
End With
End Sub