Merci de m'aider à optimiser mon code ci-dessous.
Actuellement j'ai une erreur d'exécution 1004 à la ligne " MyDataRealise.Cells(rg.Row, "A").EntireRow.Delete"
Dim clebudget As String
Dim rg, rgmois As Range
Dim reponse As Integer
Dim MyDataRealise As Object
Set MyDataRealise = Sheets("Realise").Range("F1").CurrentRegion
Set rg = MyDataRealise.Range("F1:F10000").Find(clebudget, MyDataRealise.Range("F1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not rg Is Nothing Then
reponse = MsgBox("Voulez vous vraiment supprimer cet enregistrement ?", vbYesNo + vbQuestion, "Confirmation")
If reponse = vbYes Then
MyDataRealise.Cells(rg.Row, "A").EntireRow.Delete
MsgBox "Enregistrement supprimé avec succès !", vbInformation, "Informations"
ListBoxBudgetReel.RowSource = "Tabrealise"
End If
Else
MsgBox "Impossible de supprimer l'enregistrement !", vbCritical, "Informations"