Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim data As Collection
Dim i As Byte
Dim c As Range
Set data = New Collection
On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
data.Add c & ';' & c(1, 2), CStr(c & ';' & c(1, 2))
Next c
On Error GoTo 0
For i = 1 To data.Count
tablo = Split(data(i), ';')
Cells(i, 4) = tablo(0)
Cells(i, 5) = tablo(1)
Next i
End Sub