Macro Beugée sur le positionnement curseur

[masteur907]

Bonjour à tous,

Je pense que je commence à être connue mais les débuts sont difficiles.
Voici une macro que j'ai créé mais j'ai du mal rentrer un code notament sur la ligne erreur car elle marche pas.

J'avoue mon impuissance sur ce problème


Sub PIC()

ThisWorkbook.FollowHyperlink "C:\Projets\PIC 2004.xls"
Sheets("Data").Select
Cells.Select
Selection.Copy
Windows("Prise des données du pic.xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste--------------------------------------------------------- ERREUR
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Selection.ColumnWidth = 17.5
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Columns("A:B").Select
Selection.ColumnWidth = 13.5
Range("A16").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[2],8)"
Range("B16").Select
ActiveCell.FormulaR1C1 = _
"=SUM(RC[7],RC[10],RC[13],RC[16],RC[19],RC[22],RC[25],RC[28],RC[31],RC[34],RC[37],RC[40])"
Range("A16:B16").Select
Selection.AutoFill Destination:=Range("A16:B1525"), Type:=xlFillDefault
Range("A16:B1525").Select
Selection.End(xlUp).Select
Range("A2").Select
Windows("PIC 2004.xls").Activate
Range("A1").Select
ActiveWindow.Close
Sheets("Feuil1").Select

End Sub


Merci de votre aide

 

[masteur907]

Pour etre plus précis j'essaye de comprendre pourquoi ça marche quand j'ai le curseur mis sur A1 et que ça marche pas quand le curseur est sur A2.

Voila pour les précisions.