Private Sub Btnsupprimer_click()
' Suppression participants
With Sheets("Liste")
DerLig = .Range("B65500").End(xlUp).Row
For L = DerLig To 2 Step -1
If .Cells(L, "B") = ComboBox1 Then
.Cells(L, 1).EntireRow.Delete
End If
Next L
End With
End Sub
Bonjour sylvanu ,j'ai fait un essai et sur ma feuille (liste) se trouvent aussi des tableau et des bouton et lorsque que je supprime cela impacte mes tableaux ,je joins le fichier modifié .Merci