With Sheets("Source").Range("b" & ligne)
If .Hyperlinks.Count Then
Range("d6").Hyperlinks.Add Range("d6"), .Hyperlinks(1).Address, , , .Text
Else
Range("d6").Font.ColorIndex = xlAutomatic
Range("d6").Font.Underline = xlUnderlineStyleNone 'aucun soulignement
Range("d6") = .Text
End If
End With