Dim lStr as string lStr="201 202 203 204 I 205 206 207" Dim ltChamps() as string ltChamps=Split(lStr," I ") Dim ltBase() as String ltBase=Split(trim$(ltChamps(0))," ") Dim ltExt() as String ltExt=Split(trim$(ltChamps(1))," ") Dim i as long dim j as long for i=0 to ubound(ltExt) For j=0 to ubound(ltBase) Cells(i,j).value=ltBase(j) Next Cells(i,j).Value=ltExt(i) Next