Option Explicit
Sub Projet_supprimer()
If Not Selection.Offset(1, 0).Value Like "Note*" Then
MsgBox "Pour supprimer un projet, sélectionner une cellule contenant le nom d'un client (colonne a).", vbInformation, "Attention..." '
Else
Selection.Resize(6).EntireRow.Delete Shift:=xlUp
End If
End Sub