Blocage sur insertion

Salut à tous,

Voilà une petite macro que j'ai écrite :

Private Sub InsererEnTete()

Workbooks.Open Filename:="I:\Private_ISP\PPM\SEPTEMBER 2006\Fichiers ISP\Entete+References.xls"

Rows("1:6").Select
Selection.Copy

Workbooks(NomClasseur).Sheets(1).Activate
Range("A1").Select
Selection.Insert Shift:=xlDown

Workbooks("Entete+References.xls").Close (False)

End Sub

Toutes les variables sont définies et calculées. Il bloque sur la ligne rouge : il copie bien mon entête mais ne passe pas à la suite. A la fin, il me donne un runtime error 13 : type mismatch.

Est ce que quelqu'un a une explication ? Ou mieux, un moyen d'éviter ça ?

Merci pour votre aide,

Lycaon.

Lu,

remplace ton

Selection.Insert Shift:=xlDown

 par

If Not Intersect(Range("A1"), Selection) Is Nothing Then Rows(6).Insert Shift:=xlDown

Merci pour ta réponse.

Je n'ai pas compris pourquoi tu veux me faire tester l'intersection entre les deux plages étant donné qu'elles ne sont pas sur le même classeur.

J'ai quand même essayé mais ça me donne le même résultat. En plus, si je ne me trompe pas, tu essayes de coller une seule ligne (la sixième) et je veux copier une sélection de 6 lignes : je ne sais pas si ça change qqch dans ton code.

Merci encore

Lycaon

Je n'ai pas testé, mais si tu essayais comme ceci ?

Workbooks(NomClasseur).Sheets(1).Activate
Rows("1:6").Select
Selection.Insert Shift:=xlDown


MPi