XL 2013 Erreur de compilation ? module

starz

XLDnaute Occasionnel
Bonjour, j'ai une erreur dans ma macro mais je ne comprend pas quel est le problème ?
Ma macro fonctionne sur un PC mais pas l'autre ?
une idée

Erreur de compilation
Projet ou bibliothèque introuvable



Code:
Sub qualif()
Dim tablo() As Variant
Dim tablo2() As Variant
Nb = Sheets("PILOTES").Range("B" & Rows.Count).End(xlUp).Row

tablo = Sheets("PILOTES").Range("B3:B" & Nb).Value
ReDim tablo2(1 To UBound(tablo, 1), 2)
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
    tablo2(i, 1) = ""
Next i
i = 1
While tablo2(UBound(tablo2, 1), 1) = ""
    DejaTiré = False
    Tirage = WorksheetFunction.RandBetween(1, Nb - 2)
    For J = LBound(tablo2, 1) To UBound(tablo2, 1)
        If tablo2(J, 1) = Tirage Then
            DejaTiré = True
            Exit For
        End If
    Next J
    If Not DejaTiré Then
        tablo2(i, 1) = Tirage
        tablo2(i, 2) = tablo(Tirage, 1)
       
        i = i + 1
        DejaTiré = False
    End If
Wend

saut = 0
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
   Sheets("Chrono QUALIF").Range("D2").Offset(i + saut, 0) = tablo2(i, 2)
   If i Mod 4 = 0 Then saut = saut + 1
Next i

End Sub
 

Discussions similaires

Réponses
4
Affichages
394
Réponses
11
Affichages
605

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh