Choix d'écraser cellule ou pas

boujour le forum

je reviens vers vous aujourd'hui pour un petit coup de main

j'ai ce petit bout de macro

With Sheets(FeuilleDeTransfert)
            For Each cell In Range(.Cells(LigneDeTransfert, DebutColonneDeTransfert), .Cells(LigneDeTransfert + A, FinColonneDeTransfert))
                If cell.Value = "" Then
                    cell = ComboBox3.Value
                Else
                   MsgBox (" Donnée déjà présente" & (" ") & cell)
                    Exit Sub
                End If

        Next
        End With

qui me permet de pouvoir saisir les données via un Userform .

Au MsgBox je voudrais avoir le choix d’écraser les données

MsgBox (" Donnée déjà présente" & (" ") & cell)

"voulez vous ecraser? mais je n'y arrive pas .

Merci de votre aide .

Bonjour,

    If MsgBox("Voulez-vous écraser la donnée : " & cell & ", déjà présente ?", vbYesNo + vbQuestion, _
     "Attention !") = vbYes Then
        '(instructions)
    End If

Cordialement.

Merci MFerrand

j'ai la crève et je n’arrivais pas a trouvé .

je vais allez me coucher

Merci encore