Do Until Sheets("Base").Cells(Lignebase, 1) = ""
Select Case Sheets("Base").Cells(Lignebase, 8)
Case "Equipe 1"
x1 = 44.25
Case "Equipe 2"
x1 = 121.5
Case "Equipe 3"
x1 = 198.75
Case Else
x1 = 0
End Select
y1 = 425.25 + (Sheets("Base").Cells(Lignebase, 6) - 0.125) * 756
If Sheets("Base").Cells(Lignebase, 7) * 756 < 12 Then h1 = 12 Else h1 = Sheets("Base").Cells(Lignebase, 7) * 756
Add_Shape Right(Sheets("Base").Cells(Lignebase, 1), 3), Left(Sheets("Base").Cells(Lignebase, 1), 3), Sheets("Base").Cells(Lignebase, 13), Sheets("Base").Cells(Lignebase, 3) & " " & Sheets("Base").Cells(Lignebase, 4), " (" & Sheets("Base").Cells(Lignebase, 5) & ")", x1, y1, h1
End If
Loop