Bonjour a tous
en fait mon probleme c´est que je n´arrive pas a crée un tableau avec tout les couts horaires affiché j´ai essayé a plusieur reprise de crée un tableau mais je n´y suis pas arrivé
voici le programme suivant :

Public Sub pg28()
Dim Tabprofil(6) As String
Dim i As Integer
Dim valeur As String
Dim Tabcout(6) As Single
Dim cout As String

Tabprofil(0) = "CPMOA"
Tabprofil(1) = "CPMOE"
Tabprofil(2) = "XT"
Tabprofil(3) = "TECH1"
Tabprofil(4) = "TECH2"
Tabprofil(5) = "TECH3"
Tabprofil(6) = "COMM"
For i = 0 To 6
valeur = Tabprofil(i)
cout = InputBox("saisir le cout horaire du profil " & valeur & "")
Next i
End Sub

J´espere que vous pourrez m´aidez je vous remercie d´avance.