Randomize avec 4 x 5 caractères

Bonjour à tous,

Je souhaite modifier la macro de Sébastien afin d'obtenir 4 groupes de 5 caractères. séparés par un -

Je colle ici la macro du maître.

Sub code_alea()

'www.blog-excel.com/generer-code-aleatoire

' créer 5 fois 4 caractères

Randomize

carac = "ABCDEFGHI1234567890"

lettre_aleatoire = ""

For i = 1 To 10

nombre_aleatoire = Int(Len(carac) * Rnd) + 1

lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)

If i = 5 Then lettre_aleatoire = lettre_aleatoire & "-"

Next

MsgBox lettre_aleatoire

ActiveCell = lettre_aleatoire

End Sub

Bonjour,

Sub code_alea()
Dim Carac As String, lettre_aleatoire As String
Dim i As Byte, nombre_aleatoire As Byte
    'www.blog-excel.com/generer-code-aleatoire
    ' créer 4 fois 5 caractères
    Randomize
    Carac = "ABCDEFGHI1234567890"
    lettre_aleatoire = ""
    For i = 1 To 20
        nombre_aleatoire = Int(Len(Carac) * Rnd) + 1
        lettre_aleatoire = lettre_aleatoire & Mid(Carac, nombre_aleatoire, 1)
        If i Mod 5 = 0 And i < 20 Then lettre_aleatoire = lettre_aleatoire & "-"
    Next
    MsgBox lettre_aleatoire
    ActiveCell = lettre_aleatoire
End Sub

A+

Bonjour frangy,

C'est exactement ce que je souhaitais, un grand merci pour ta rapidité et ta serviabilité.

Et de plus , ça marche.

Gros bisous de Belgique

Papy Pierrot