Sub Boucle()
Derligne_cible = Range("B2000").End(xlUp).Row 'trouve la dernière ligne de la colonne B
Range("B2").Select 'cellule de démarrage
'Traitement des N° et des liens (colonne B)
For l = 1 To Derligne_cible 'l => n° ligne ver la fin
If ActiveCell <> "" Then
Destination = ActiveCell.Address(0, 0) ' cellule de destination
Valeur = ActiveCell
' ActiveCell.ClearContents
With ActiveSheet 'sur cette feuille
.Range(Destination) = Valeur
.Hyperlinks.Add .Range(Destination), "http://www.google=" & Valeur 'ajoute le lien + la valeur de la cellule
End With
ActiveCell.Offset(1, 0).Activate 'ligne suivante
Else
ActiveCell.Offset(1, 0).Activate 'ligne suivante
End If
Next 'Boucle suivante
Range("C2").Select 'cellule de démarrage
'Traitement des N° et des liens (colonne C)
For l = 1 To Derligne_cible 'l => n° ligne ver la fin
If ActiveCell <> "" Then
Destination = ActiveCell.Address(0, 0) ' cellule de destination
Valeur = ActiveCell
With ActiveSheet 'sur cette feuille
.Range(Destination) = Valeur
.Hyperlinks.Add .Range(Destination), "http://www.ask=" & Valeur 'ajoute le lien + la valeur de la cellule
End With
ActiveCell.Offset(1, 0).Activate 'ligne suivante
Else
ActiveCell.Offset(1, 0).Activate 'ligne suivante
End If
Next 'Boucle suivante
Range("B21").Select 'retour a la cellule de démarrage
End Sub