Pour chaque c in range ("A2" A800 ") For each c in range("a2"a800")
c.value = c & "" & c.offset (, 1) c.value= c & " " & c.offset(,1)
c prochaine next c
colonnes (2). supprimer columns(2).delete
OU
Sub sonic()
LastRow = Cells (Cells.Rows.Count, "A"). End (xlUp). Row lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MaPlage = Range ("A1: A" & LastRow) Set MyRange = Range("A1:A" & lastrow)
For Each c Dans MaPlage For Each c In MyRange
c.Value = c.Offset (, 1). Value & "" & c.Value c.Value = c.Offset(, 1).Value & " " & c.Value
Suivant Next
Colonnes (2). ClearContents Columns(2).ClearContents
End Sub End Sub