Sub multicase()
Application.ScreenUpdating = False
For lig = 1 To 150
posx = Cells(lig, 13).Left
posy = Cells(lig, 13).Top
largeur = Cells(lig, 13).Width
hauteur = Cells(lig, 13).Height
With ActiveSheet.CheckBoxes.Add(posx, posy, largeur, hauteur)
.LinkedCell = Cells(lig, 13 + 1).Address
.Characters.Text = ""
End With
Next lig
Application.ScreenUpdating = True
End Sub