Excel VBA : Format de cellule et Copie auto

Option Explicit
Sub Remplissage_Aléatoire()

' Remplissage d'une zone de dimension variable par des valeurs aléatoires comprises entre deux bornes définies

' Programmation éffectuée par TeTo25
' ___________________________________________
' Réinitialiser les valeurs précédentes

Call Réinitialiser

' ___________________________________________
' Définition des variables

Dim Min, Max As Double
Dim i, j, k, Dec, NbCol, NbLig As Integer
Dim Format, Cell As String


Min = 0
Max = 0
Dec = 0
NbCol = 0
NbLig = 0
i = 0
j = 0
k = 0

' ___________________________________________
' Activer le mode aléatoire

Randomize

' ___________________________________________
' Récupération des paramètres

Min = Range("A3").Value
Max = Range("D3").Value
Dec = Range("G3").Value
NbCol = Range("A5").Value - 1
NbLig = Range("D5").Value - 1
Format = Left("0.00000000", Dec + 2)

' ___________________________________________
' Validation des données saisies

If Max - Min <= 0 Then

    MsgBox ("La borne supérieure doit être plus grande que la borne inférieure")    ' Message d'erreur 1
    Exit Sub
    
End If

If NbCol <= 0 Or NbLig <= 0 Then

    MsgBox ("Le nombre de colonnes ou lignes doit être supérieur ou égal à 1")      ' Message d'erreur 2
    Exit Sub
    
End If

' ___________________________________________
' Traitement des données et remplissage des cases

For i = 0 To NbCol Step 1               ' Colonnes

    For j = 0 To NbLig Step 1           ' Lignes
    
        Range("A7").Offset(j, i) = Int(((Min + (Max - Min) * Rnd)) * 10 ^ Dec) / (10 ^ Dec) ' Valeur aléatoire entre les bornes
        Range("A7").Offset(j, i).Select
        
                
    Next j
    
Next i

' ___________________________________________
' Changement du format des cellules et copies des données

Cell = ActiveCell.Address               ' Récupération de l'adresse de la dernière cellule remplie
Range("A7:" & Cell).Select              ' Sélection de l'ensemble des cellules remplies
Selection.NumberFormat = Format         ' Modification du format (Nombre de décimales)
Selection.Copy                          ' Copies des cellules
Range("A7").Select                      ' Désactivation de la grande sélection (uniquement pour l'aspect visuel)


' ___________________________________________
' Message de Validation final

k = (NbCol + 1) * (NbLig + 1)           ' Nombre de cellules remplies
MsgBox (k & " cellules ont été remplies par des nombres compris entre " & Min & " et " & Max & ".") ' Message de validation

End Sub

Sub Réinitialiser()

' Réinitialisation des cellules

' Programmation éffectuée par TeTo25

    Rows("7:999999").Select
    Selection.ClearContents
    Range("A7").Select
    
End Sub