Sub test1()
Dim i As Integer
Dim liste As String
Dim j As Integer
Dim verif1 As String
For i = 8 To 18
If Cells(i, 6) <> "" Then liste = liste & "-" & Cells(i, 6)
Next i
liste = Mid(liste, 2) 'enlever les "-" du début
For j = 1 To 4000
If Cells(j, 3) <> "" Then verif1 = liste
Next j
verif1 = Sheets("Attest_BDD").Range("H2")
'Sheets("Attest_BDD").Range("H2:H100") = liste
End Sub