Sub VarianteEcriture()
Dim X As Range
Set X = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)
If X.Row < 6 Then
MsgBox "Aucunes données à supprimer!", 16, "MESSAGE D'INFORMATION"
GoTo RIENASUPP
End If
If MsgBox("Voulez-vous vraiment annuler le dernier scannage?" & vbCrLf & vbTab & X(1, 2), 36, "MESSAGE DE CONFIRMATION") = vbYes Then
X.Resize(, 3) = ""
End If
RIENASUPP:
End Sub