'-----
If x >= dat Then
If TypeName(Evaluate(Mid(tablo2(i, 1), 2))) = "Range" Then
Set c = .Range(Mid(tablo2(i, 1), 2))
If c.Hyperlinks.Count Then
Set P = Union(.Cells(i, 1), c, IIf(P Is Nothing, .Cells(i, 1), P))
Else 'si le lien hypertexte a été supprimé
.Cells(i, 2) = ""
samagace = False
End If
Else
.Cells(i, 2) = ""
samagace = False
End If
End If