Sub CreationGrilles()
Dim NbMatchs As Integer
'Dim Val As Integer
' permet à l'utilisateur de rentrer le nombre de matchs souhaités
NbMatchs = InputBox("Veuillez indiquer le nombre de Match à traiter/ajouter: ")
'création du tableau avec les Matchs
ActiveSheet.ListObjects("TabDInput").Resize Range("B3:E" & NbMatchs + 3)
'pour chaque match, demande à l'utilisateur de saisir les cotes
For i = 1 To NbMatchs
ActiveSheet.ListObjects("TabDInput").Range(i + 1, 1) = "Match" & i
ActiveSheet.ListObjects("TabDInput").Range(i + 1, 2) = InputBox("Donnez la cote1 du match" & i & ": ")
ActiveSheet.ListObjects("TabDInput").Range(i + 1, 3) = InputBox("Donnez la coteN du match" & i & ": ")
ActiveSheet.ListObjects("TabDInput").Range(i + 1, 4) = InputBox("Donnez la cote2 du match" & i & ": ")
Next i
NbCombi = 3 ^ NbMatchs
'création des tableaux de résultats
Pos = NbMatchs + 7
'à suivre...
End Sub