Comment passer d'une ligne à l'autre

[babouchka]

Bonsoir,

je me permets de vous solliciter sur cette macro qui ne fonctionne pas (suite à mon message d'hier).

Je n'arrive pas à ouvrir le lien hypertexte suivant pour que la macro continue de me copier ce que je lui demande.

Pouvez-vous m'aider SVP.

Merci par avance,

Babouchka

Sub ESSAI3()
''Dim mCellule As Object
Dim lCompteur As Long
lCompteur = 0
For Each mCellule In Range("E:E")
If mCellule.Value <> "" Then

Range("E:E").Select
Selection.hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("C:C").Select
ActiveCell.FormulaR1C1 = _
"DWPI Title [Click to see description of this field] " & Chr(10) & "Electric vehicle performs regenerative control of motor with low drive frequency, when application of damping force to axle is notified" & Chr(10) & "Assignee/Applicant [Click to see description of this field] "
With ActiveCell.Characters(Start:=1, Length:=255).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
lCompteur = 0
Else
' Sort de la boucle dès qu'on a rencontré 20 cellules vides de suite
lCompteur = lCompteur + 1
If lCompteur > 20 Then Exit For
End If
Next
End Sub