Salut Lekouti,
Tu peux essayer ceci en l'adaptant :
Sub Recopie()
Dim ST As String, I As Integer, Ligne As Long, Col As Byte
Ligne = ActiveCell.Row
Col = ActiveCell.Column
For I = 70 To 100
ST = "<A HREF=" & Chr(34) & "pp/" & CStr(I) & ".html" & Chr(34) & "><IMG SRC= " & Chr(34) & "vignette/" & CStr(I) & ".jpg" & Chr(34) & "></a>"
Cells(Ligne, Col) = ST
Ligne = Ligne + 1
Next
End Sub
L'astuce est d'utiliser Chr(34) pour faire apparaître " dans une chaîne sans perturber VBA.
A+
LN