Sub LaMacroQueTuPondsQuandTasDuTempsAperdre() ';-)
Dim s$, fH$, fPJi$, fPJii$, fRxJ$, vSSe$, fSe$, fTbo$, t
s = "saint.luc@priezpourlui.com": t = _
[{"Hoerwind","Pierrejean_1","Pierrejean_2","JNP","Staple_1","Staple_2","Tibo"}]
fH = "=GAUCHE(STXT(A1;CHERCHE(""@"";A1)+1;100);CHERCHE(""."";STXT(A1;CHERCHE(""@"";A1)+1;100))-1)"
fPJi = "=STXT(A1;TROUVE(""."";A1)+1;TROUVE(""@"";A1)-TROUVE(""."";A1)-1)"
fPJii = "=SI(TROUVE(""."";A1)<TROUVE(""@"";A1);STXT(A1;TROUVE(""."";A1)+1;TROUVE(""@"";A1)-TROUVE(""."";A1)-1);STXT(A1;1;TROUVE(""@"";A1)-1))"
fRxJ = RechercheNom(s)
vSSe = Split(Split(s, "@")(0), ".")(1)
fSe = "=STXT(STXT(A1;1;CHERCHE(""@"";A1)-1);CHERCHE(""."";STXT(A1;1;CHERCHE(""@"";A1)-1))+1;9^9)"
fTbo = "=STXT(GAUCHE(A1;TROUVE(""@"";A1)-1);(TROUVE(""."";A1)<TROUVE(""@"";A1))*TROUVE(""."";A1)+1;99)"
With Cells(1, 1)
.Value = s: .Offset(, 1).FormulaLocal = fH
.Offset(, 2).FormulaLocal = fPJi: .Offset(, 3).FormulaLocal = fPJi
.Offset(, 4) = fRxJ: .Offset(, 5) = vSSe
.Offset(, 6).FormulaLocal = fSe: .Offset(, 7).FormulaLocal = fTbo
With .Offset(1, 1).Resize(, UBound(t))
.Value = t: .Font.Bold = True: .Borders.LineStyle = 1
End With
With .CurrentRegion
.Columns.AutoFit
.HorizontalAlignment = -4108
End With
End With
End Sub