HACKVBACON & FORMULALACON - Let's play ! ;-)

Sub Hackacon_1()
'Je commence doucement ;-)
Dim imD As XlDirection, CelA$, Lol&, Derligne As Long
imD = 1 * Switch(Chr(120) + Chr(108) + Chr(85) + Chr(112) = Chr(120) + Chr(108) + Chr(85) + Chr(112), 3)
Columns(1).Clear
CelA = Cells(1, Columns.Count).End(xlToLeft).Address
Lol = Right(CStr(TimeSerial(Hour(Time), Minute(Time), Second(Time)) * 2), 3) * 3
Range(CelA).Resize(Lol + (5 / 5) - 0) = "=ROW()*NOW()"
Derligne = Cells(Rows.Count, Range(CelA).Column).End(imD).Row
MsgBox "La dernière ligne non vide est:" & vbCrLf & Derligne, vbInformation + vbOKOnly
End Sub

Sub Hackacon_2()
Dim Frontiere As XlBordersIndex, Murs As XlBorderWeight
Dim LaCelluleDerriereLaPorte As Range
Dim LePlancherDesVaches As String
Dim LaValeur As String
Dim LaLigneCetteDictatureFaiteAuxFemmes As Long
Dim LaCinquiemeColonne As Long
Dim LaRaieManta
LaRaieManta = Split("84²111²117²116²32²231²97²32²112²111²117²114²32²231²97²33", "²")
Cells.Clear
LaLigneCetteDictatureFaiteAuxFemmes = 1 * VBA.Left(Application.WorksheetFunction.Log10(Day(Date)) * 10 ^ 10, 3) - (99 - 10)
LaCinquiemeColonne = Application.WorksheetFunction.Bin2Dec(10) + Int(Application.WorksheetFunction.SqrtPi(999) / 9) / 2
Set LaCelluleDerriereLaPorte = Cells(1, 1).Range("A1").Item(1).Offset(0, 0)
LePlancherDesVaches = _
LaCelluleDerriereLaPorte.Resize(LaLigneCetteDictatureFaiteAuxFemmes, LaCinquiemeColonne).Address
Frontiere = 12
Murs = -4138
Range(LePlancherDesVaches).Borders(Frontiere).Weight = Murs
Range(LePlancherDesVaches).Interior.Color = vbYellow
For i = LBound(LaRaieManta) To UBound(LaRaieManta)
LaValeur = LaValeur & Chr(LaRaieManta(i))
Next
With Range(LePlancherDesVaches).Item(7, 3)
    .Font.Bold = True
    .Interior.Color = RGB(230, 177, 222)
    .Value = LaValeur
    .Columns.AutoFit
End With
End Sub

Option Explicit

Sub UnTrucQuiSertArien()
Const milisec = 50
Dim xcell, i&, j&, poids, xbary, ybary, n

With Selection
For Each xcell In .Cells
If xcell <> "" Then
If IsNumeric(xcell) Then
If xcell > 0 Then
If n = 0 Then
n = n + 1
poids = xcell
xbary = xcell.Left + xcell.Width / 2
ybary = xcell.Top + xcell.Height / 2
.Parent.Shapes("Gravite").Left = xbary - .Parent.Shapes("Gravite").Width / 2
.Parent.Shapes("Gravite").Top = ybary - .Parent.Shapes("Gravite").Height / 2
Attente milisec
Else
n = n + 1
xbary = (poids * xbary + xcell * (xcell.Left + xcell.Width / 2)) / (poids + xcell)
ybary = (poids * ybary + xcell * (xcell.Top + xcell.Height / 2)) / (poids + xcell)
poids = poids + xcell
.Parent.Shapes("Gravite").Left = xbary - .Parent.Shapes("Gravite").Width / 2
.Parent.Shapes("Gravite").Top = ybary - .Parent.Shapes("Gravite").Height / 2
Attente milisec
End If
End If
End If
End If
Next xcell
End With
End Sub

Sub Demo()

Range("A1:C10,J10:K21,A23:C30,A23:D29,D30").Select
UnTrucQuiSertArien
Attente 500
Range("A1:A30,K1:K30").Select
UnTrucQuiSertArien
Attente 500
Range("A1:C9,D10:F19,G20:I25,J26:K30").Select
UnTrucQuiSertArien
Attente 500
Range("B2:D9,E10:G18,K19:K30,J19:K30").Select
UnTrucQuiSertArien
MsgBox "Fini!"
End Sub

Sub Attente(Xmillisec&)
Dim T0#, T1#, T2#
T0 = Timer: T2 = T0 + Xmillisec / 1000#
Do
DoEvents: T1 = Timer: If T1 < T0 Then T1 = T1 + 86400
Loop Until T1 >= T2
End Sub

Sub Hackacon_4()
Const UN As String = "EIN"
Const DEUX As String = "ZWEI"
Dim Uno As String
Dim Dos As String
Uno = Int(VBA.Log(Asc(Mid(UN, 1, 1)))) / (Application.WorksheetFunction.Hex2Dec("2C") - 40)
Dos = ((1 * Left(Asc(Mid(DEUX, 2, 1)), 1)) * (Right(Asc(Mid(DEUX, 2, 1)), 1) * 1)) / 28
Dim TROIS
MsgBox "Uno=" & vbTab & Uno & vbCrLf & "Dos=" & vbTab & Dos
TROIS = Uno + Dos
MsgBox "Uno+Dos=" & TROIS, vbCritical, "Y'a comme un blème!"
TROIS = CDbl(Uno * 1) + CDbl(Dos * 1)
MsgBox "Uno+Dos=" & TROIS, vbInformation, "Ouf!, c'est bon"
End Sub

=REPT(CAR(65);RACINE(4)=CHOISIR(N(T(GAUCHE(CELLULE("largeur";A1))))=0;VRAI;FAUX)*2)&LIGNE()

=SUBSTITUE(STXT(ADRESSE(LIGNE();COLONNE());2;AUJOURDHUI());CAR(JOURSEM(DATE(1^3;2^3;PI()^3);2)^2);"")

=RACINE(((CODE(GAUCHE(ROMAIN(CODE(CAR(CODE(GAUCHE(T(BAHTTEXT((0)))))+4)))))-LIGNE())/5/3)^2)/DROITE(CTXT(LOG10(1415)))*1

=(2*5*(7+3)*(99/9)+9)-109+ENT(BITOUEXCLUSIF(CNUM(BASE(BASE(2017;12);2));88)/10000000)