Pour ceux qui ont un truc paraît:

Private Sub List1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim i As Long, chec As String
For i = 1 To List1.ListItems.Count
'ici on ignore la nouvelle case coché
If i <> Item.Index Then
'si on trouve un élément sélection on le prend le pm et on quitte la boucle
If List1.ListItems(i).Checked = True Then
 chec = List1.ListItems(i).SubItems(1)
Exit For
End If
End If
Next
If chec <> "" Then
'si le pm de la case a coché ne corresspend pas au pm de la case déja coché on la decoche et on affiche une alerte
If Not (List1.ListItems(Item.Index).SubItems(1) = chec) Then
Item.Checked = False
MsgBox "Vous devez cocher des réservations du même PM", vbCritical, "Erreur"
End If
Else
'si chec est vide on quitte
Exit Sub
End If
End Sub