en savoir plus sur les zones de liste

bonsoir Mielpops

Sub test()
Dim test As Boolean
With Worksheets('certificat') 'Important ne pas oublier les points
'pas de sélection
'If listbox1.ListIndex = -1 Then Exit Sub
m =listbox1.Value
'la ligne suivante peut remplacer If listbox1.ListIndex = -1 Then Exit Sub
'If m = '' Then Exit Sub
test = False
For Each cel In .Range('A1:A9') 'à adapter
'si tu n'as rien à droite,ligne suivante
'If cel = m Then .Cells(cel.Row, 1).EntireRow.Delete
'sinon,ligne suivante
If cel = m Then
test = True
.Range('A' & cel.Row & '😀' & cel.Row).Delete Shift:=xlShiftUp 'à adapter
End If
If test = True Then Exit For
Next cel

End With

End Sub
à bientôt