Voici la macro corrigée, avec récupération des dates.
Je vais commencer à regarder ton histoire de liens.
Sub lien_hypertxt()
' si erreur (par exemple case vide) la macro passe la ligne
On Error Resume Next
Application.DisplayAlerts = False
Dim ligneA As Integer
Dim text1 As String
Dim text2 As String
' de la ligne 2 à la 20
For ligneA = 2 To 20
text1 = ""
text2 = ""
' je mets tout en minuscule
Cells(ligneA, 2).Value = LCase(Cells(ligneA, 2).Value)
' je veux récupérer le numéro du doc en colonne 3
' si les 8 premières lettres de la case sont "document"
If Left(Cells(ligneA, 2), 8) = "document" Then
' je récupère les num de doc à 3 chiffres
' en troisième colonne je mets les 13 premiers caractères de la cellule en colonne 2
Cells(ligneA, 3) = Left(Cells(ligneA, 2), 13)
' je récupère les num de doc à 2 chiffres
' si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 3), 1)) Then
Cells(ligneA, 3) = Left(Cells(ligneA, 3), 12)
End If
' je récupère les num de doc à 1 chiffre
' et je refais ça, si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 3), 1)) Then
Cells(ligneA, 3) = Left(Cells(ligneA, 3), 11)
End If
' je veux récupérer la date d'application en colonne 4
Dim dateA As String
tableau = Split(Cells(ligneA, 2), "/")
Cells(ligneA, 4) = Right(tableau(0), 2) & "/" & tableau(1) & "/" & Left(tableau(2), 4)
With Cells(ligneA, 4)
.NumberFormat = "mm/dd/yyyy"
End With
' je veux "remplace le ..." en colonne 5
tableau = Split(Cells(ligneA, 2), "remplace le ")
text2 = tableau(1)
Cells(ligneA, 5) = Left(text2, 13)
' je récupère les num de doc à 2 chiffres
' si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 5), 1)) Then
Cells(ligneA, 5) = Left(Cells(ligneA, 5), 12)
End If
' je récupère les num de doc à 1 chiffre
' et je refais ça, si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 5), 1)) Then
Cells(ligneA, 5) = Left(Cells(ligneA, 5), 11)
End If
' je veux "remplacé par le ..." en colonne 6
tableau = Split(Cells(ligneA, 2), "remplacé par le ")
text2 = tableau(1)
Cells(ligneA, 6) = Left(text2, 13)
' je récupère les num de doc à 2 chiffres
' si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 6), 1)) Then
Cells(ligneA, 6) = Left(Cells(ligneA, 6), 12)
End If
' je récupère les num de doc à 1 chiffre
' et je refais ça, si le dernier caractère n'est pas un chiffre, je l'enlève
If Not IsNumeric(Right(Cells(ligneA, 6), 1)) Then
Cells(ligneA, 6) = Left(Cells(ligneA, 6), 11)
End If
End If
Next ligneA
End Sub