c'est tout simplement parce que tu n'as pas déclaré Supprimrmsg auparavant. Comme c'est une variable de type Variant, tu modifies ta macro comme ceci et ça marchera
Private Sub XPButton4_Click()
dim Supprimermsg
Supprimermsg = MsgBox("Supprimer la ligne sélectionné ?", vbExclamation, _
"Opération irréversible !!!!")
If Supprimermsg = vbCancel Then
Else
Selection.ClearContents
Selection.Delete Shift:=xlUp
End If
End Sub