[XL-2007] affectation une valeur a une cellule

Bonjour je viens vers vous car j'ai besoin d'aide svp

un membre du groupe qui s'apelle Dan ma aidez a fair le programme vba d'un choix aléatoire d'une celle dans une colonne moi maintenent je veux faire la suite , je veux que lorsque ma cellule O7 du tableau se rempli aléatoirement que je puissent faire se que je vous présente dans limage sachant que les cellules de la ligne 7 du tableau se remplisse l'une aprés l'autre et resoivent la valeur 53

Pièce jointe 212623
voila le code que j'ai fais saachant qu'il repond pas a ce que je veux faire merci de m'aidez svp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
            i = 15 'valEUr de Ma première colonne du tableau
            Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
 
            Do Until Range("T7") <> "" Or Arret = True 'conditionne la boucle jusqu'à la dernière colonne de ton tableau
 
                If i > 15 Then Cells(7, i - 1).Value = Range("B1") 'mettre la valeur de B1 dans les cellule precedente
                Cells(7, i).Value = Range("B1").Value 'mets ta valeurs dans la cellule de ton tableau B1=53
                'boucle famille aléatoire tunel
                 If Range("P7") <> "" Then
                 Range("P8") = Range("O8")
                End If
                 If Range("Q7") <> "" Then
                Range("Q8") = Range("P8")
                Range("P8") = Range("O8")
                End If
 
                If Range("R7") <> "" Then
                Range("R8") = Range("Q8")
                Range("P8") = Range("O8")
                Range("Q8") = Range("P8")
                End If
 
                If Range("S7") <> "" Then
                Range("S8") = Range("R8")
                Range("P8") = Range("O8")
                Range("Q8") = Range("P8")
                Range("R8") = Range("Q8")
                End If
 
                If Range("T7") <> "" Then
                Range("T8") = Range("S8")
                Range("P8") = Range("O8")
                Range("Q8") = Range("P8")
                Range("R8") = Range("Q8")
                Range("S8") = Range("R8")
                End If
                If Range("O7") <> "" Then
        Set plage = Range("H3:H" & Range("H" & Rows.Count).End(xlUp).Row)
        Randomize
        lg = Int((WorksheetFunction.CountA(plage) - 1 + 1) * Rnd + 1)
        Range("O8") = Range("H" & lg + 13)
 
 
    End If
 
 
                'Range("O8").Value = Range("C13").Offset(Nb_Boucle, 0).Value
                i = i + 1 'prochaine colonne
                Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
                DoEvents
            Loop