Sub testForEach()
'
Dim Pré As Range, Cellule As Range
'
Set Pré = Worksheets("PRE").Range("A1").CurrentRegion
Pré.Columns(2).Insert
For Each Cellule In Range("b1:b" & Pré.Rows.Count)
Cellule = Cellule.Offset(, 1) & Cellule.Offset(, 2)
Next Cellule
'
End Sub