Dim mm, Résultat As String, i As Double, K As Double
K = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To K
If Left(Range("A" & i), 2) = "FR" Then
With CreateObject("vbscript.regexp")
.Global = False: .IgnoreCase = True: .Pattern = " \d{3,4} [-A-Za-z _]* \d\d/\d\d/\d{4} "
Set mm = .Execute(Range("A" & i))
If mm.Count = 0 Then
Range("A" & i) = Left(Range("A" & i), 19) & "_" & Right(Range("A" & i), Len(Range("A" & i)) - 18)
Else
If Len(mm(0)) = 18 Then
Range("A" & i) = Replace(Range("A" & i), " ", " _ ")
Else
Résultat = Mid(mm(0), 7, Len(mm(0)) - 6 - 12)
Range("A" & i) = Replace(Range("A" & i), Résultat, Replace(Résultat, " ", "_"))
End If
End If
End With
End If
Next i