Sub Macro1()
Dim nomequipe() As String
Cells.Select
Selection.ClearContents
nbrequipe = InputBox("sélectionner le nombre d'équipe")
ReDim nomequipe(1 To nbrequipe)
If nbrequipe = 0 Then
End
End If
Range("A1").Select
Selection.Offset(0, 0).Value = "numéro de l'équipe"
Selection.Offset(1, 0).Value = "nom de l'équipe"
For i = 1 To nbrequipe
nomequipe(i) = InputBox("sélectionner le nom de l'équipe" & i)
Selection.Offset(0, i).Value = "equipe n°" & i
Selection.Offset(1, i) = nomequipe(i)
Next
End Sub