Sub Nettoyage_SYNTHESE_1()
Dim Rw As Range
Dim Ligne As Long
Sheets("SYNTHESE").Select
Range("A5").Select
Selection.Rows.End(xlDown).EntireRow.Select
Range("$A$5", Selection).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If IsError(Rw.Cells(1, 1)) Then
Rw.Select
If MsgBox("Detection données à supprimer", vbExclamation + vbOKOnly, "**** MESSAGE IMPORTANT ****") = vbOK Then
Selection.Delete
End If
End If
Next Rw
End Sub