Bonjour,
Vu que tu as un vrai tableau la plage que tu veux sélectionner est déjà nommée automatiquement sur excel.
Reste juste à l'appeler.
Je ne me suis pas penché sur le coeur de ton code mais juste sur 3 lignes :
Sub Creation_lien_archivage()
'Selection de la colonne des N° de plan
Range("Tableau247[N° de plan]").Select 'Ligne corigé
'remplacement du slach "/" par un tiret "-"
Application.WindowState = xlMaximized
Selection.Replace What:="/", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'création du lien pour chaque ligne
For Each cel In Range("Tableau247[N° de plan]") 'Ligne corigé
If cel Like "A*" Then 'si le nom de la cellule commence par A
cel.Hyperlinks.Add Anchor:=cel.Offset(0, 0), Address:= _
"G:\Archivage\Petro Assem\" & cel.Value & ".tif", TextToDisplay:=cel.Value
Else
cel.Hyperlinks.Add Anchor:=cel.Offset(0, 0), Address:= _
"G:\Archivage\Petro Moules\" & cel.Value & ".tif", TextToDisplay:=CStr(cel.Value)
End If
Next
'modification de la police du lien hypertext
For Each cel In Range("Tableau247[N° de plan]") 'Ligne corigé
cel.Offset(0, 1).Select
If Selection.Font.ColorIndex <> 15 Then
cel.Font.Bold = True
cel.Font.ColorIndex = 1
Else
cel.Font.ColorIndex = 15
cel.Font.Underline = xlUnderlineStyleNone
End If
Next
End Sub
En espérant avoir solutionné ton problème ^^