Je ne suis pas sûre que ça soit possible mais j'ai essayé avec cette formule :
For i = 2 To Rows.Count
Range("A" & i) = "RC[i,5]&RC[i,6]"
Next i
On me dit "Dépassement de capacité"... pour info j'ai 90000 lignes
J'ai trouvé cette formule sinon :
'Range("A1").Activate
'Do While ActiveCell.Offset(0, 5) <> "" 'Loops until the active cell is blank.
'ActiveCell.FormulaR1C1 = "=RC[5]&RC[6]"
'ActiveCell.Offset(1, 0).Select
'Loop
Mais elle met un temps fou...