For j = 1 To 3
col = Choose(j, 3, 5, 4)
f.Cells(lgn, col) = Val(Replace(Controls("TextBox" & j + 2), ",", "."))
Next j
f.Cells(lgn, 9) = TextBox2
If TextBox6 <> "" Then
f.Cells(lgn, 8) = Val(TextBox6)
End If
Et avec Choose, il est évident que tu n'ira jamais au bon endroit puisque tu la laisse choisir où mettre les données. De plus tu met TextBox6(qui n'existe pas). Tu as 4 TextBox nommées 1 2 3 et 5 au lieu de 1 2 3 et 4. Tu devrait pourtant savoir que cette fonction agit comme Randomize et quelle va placer au hasard les données inscrites dans les textbox. Exemple:
1er tirage = heure deb en colonne C : 2ème tirage en colonne A: 3ème tirage en colonne D et ainsi de suite.