Bonjour,
Sub start()
Dim T8, x%, i%, L$
With ActiveSheet
With .Range("N13:N20")
For i = 1 To 8
T8 = T8 & " " & .Cells(i)
Next i
End With
Randomize
x = Int(26 * Rnd + 1): L = Chr(x + 64)
T8 = L & T8: T8 = Left(T8, 15): T8 = Split(T8)
Application.ScreenUpdating = False
.Range("AA10") = L
.Range("N13:N20").Value = WorksheetFunction.Transpose(T8)
End With
End Sub
Il ne reste plus grand chose de ton code... ! Mais en VBA mieux vaut travailler avec les moyens VBA, inutile de chercher à en emprunter à Excel quand on a déjà ce qu'il faut en VBA...
Cordialement.