Pb de Row sous excel

Salut a tous,
j'ai un petit Pb avec les Row sous Excel.
Je suis en trainde faire une macro ous excel, voila comment cela se presente:

For Each Row In Selection
Set MonModele = Workbooks.Open(Filename:="G:\test\modele\xv.xlt")

For Each Item In Row
Item.Value = Row
MonClasseur.ActiveSheet.Activate

Item.Select
Set Name_Poste = Selection.Offset(0, 0)
Set Name_Appareil = Selection.Offset(0, 1)
Set Shema_TI = Selection.Offset(0, 2)


MonModele.ActiveSheet.Activate
Range("Name_Poste").Value = Name_Poste
Range("Name_Appareil").Value = Name_Appareil
Range("Shema_TI").Value = Shema_TI

Next Item
Application.Run "Save", Name_Poste
Next Row



la macro save marche nickel. Le Pb C que si je selectionne un tableau 3x3
Cette macro va me consideré comme ligne :
A1:C1
A2:C2
A3:C3

et C ce qui suis le Pb:
B1:C1
B2:C2
B3:C3
C1
C2
C3

je ne souhaite garder que les lignes completes

Quelqu'un aurait il une solution (un argument a rajouté a Row du style CompleteRow par Ex....)

Merci à tous