Bonjour à tous,

Voici mon petit problème que je rencontre dans ma macro, il me met "Erreur N°9 , l'indice n'appartient pas à la selection"
La macro doit simplement prendre le texte mit en dur dans la celleule H2 et y rajouter le texte trouvé en colonne H pour y faire un lien hypetext, ça fonctionne jusqu'a la ligne 111 et d'un coup j'ai ce message, je suis un peu pommé :/

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub MAJ()
DossierDesFichiers = "H2"
 
On Error GoTo FinErreur
 
For n = 1 To ActiveSheet.Hyperlinks.Count
    Range(ActiveSheet.Hyperlinks(n).Range.Address).Activate
    If ActiveCell.Column = 1 Then ' Test de colonne A sinon on ne fait rien
        For i = 1 To 7  ' pour ce placer sur colonne H
            ActiveCell.Next.Select
        Next
 
 
        If ActiveCell.Value <> "" Then
        ActiveSheet.Hyperlinks(n).Address = ActiveSheet.Range(DossierDesFichiers) & ActiveCell.Value
        End If
    End If ' Fin du If ActiveCell.Column = 1 Then
Next n
 
GoTo Fin
 
FinErreur:
   MsgBox "Erreur N°" & Err & Chr(10) & Error & Chr(10) & "Veuillez contacter le créateur de cette macro"
   MsgBox "Merci de fermer le fichier sans enregistrer"
Exit Sub
 
Fin:
End Sub