copier cellule

[kciop]

bonjour,

je copie des cellules avec le code suivant ds une boucle mais je voudrai que lorsque je copie une cellule vide il me mette une valeur et non rien.parce que comme je l utilise ds une boucle apres la copie d une cellule vide la valeur suivante est decaller

je penser utiliser un if range(F51) <> "" then set plage2="vide"
elseif Set plage2 = WB2.Sheets(1).Range("F51")

a la place de Set plage2 = WB2.Sheets(1).Range("F51")

mais cela fonctionne pas

qui a une idée

merci d avance


Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")


With WB1.Sheets(1)
.Range("A65536").End(xlUp)(2) = T(I, 1)
.Range("D65536").End(xlUp)(2).Resize(Plage.Rows.Count, Plage.Columns.Count) = Plage.Value
.Range("F65536").End(xlUp)(2) = plage2.Value
.Range("M65536").End(xlUp)(2) = Plage3.Value
.Range("K65536").End(xlUp)(2) = Plage4.Value
.Range("B65536").End(xlUp)(2) = Plage1.Value
Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")