aide pour macros

[stf4404]

Bonjour,

J'ai 2 macros, j'ai des besoins que je n'arrive pas à résoudre, à savoir :

1 ère macro : j'aurais aimé compléter la macro pour que cette dernière s'arrête à la colonne et cellule souhaitées quand le travail est terminé (feuille 1).
Ex. arrêt à la cellule 430 colonne J

Sub InserImage ()
Dim Nom$
Dim fichimg$

[j2].Select


Do
With ActiveWindow
y = .Selection.Width
End With

On Error Resume Next
Nom = Selection.Offset(0, -1).Value
fichimg = ActiveWorkbook.Path & "\" & Nom & ".jpg"
ActiveSheet.Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = y
Selection.ShapeRange.IncrementRotation 90#
Selection.ShapeRange.Width = y
Selection.ShapeRange.IncrementTop 21.75
ActiveCell.Offset(1, 0).Select
Loop

End Sub


2 ème macro : je souhaiterais que mes photos apparaissent tournées de 90° (feuille 2)
Ex. arrêt à la cellule 430 colonne I une fois le travail terminé.

Sub vignettes_au_survole()
'blulle sur case au survole de la souris
ChDir ActiveWorkbook.Path
Range("I2").Select
Do While ActiveCell <> ""
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=ActiveCell.Value
ActiveCell.Comment.Shape.Fill.UserPicture ActiveCell.Value & ".jpg"
ActiveCell.Comment.Shape.Height = 400
ActiveCell.Comment.Shape.Width = 500
ActiveCell.Comment.Shape.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Shape.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Merci par avance pour votre aide, effectivement nous sommes novices et sans votre aide cela va s'avérer difficile.

Bien cordialement,

Stéphanie