Sub PRC_Suite()
'
' PRC_Suite Macro
' Macro enregistrée le 08/11/2007 par BT
'
'
Dim i As Integer
Dim l As String
Dim cell As Range
With Sheets("Accueil")
For Each cell In Application.Union(Range("K14"), Range("U14"), Range("AK14"), Range("F22"), Range("U22"), Range("AG22"), Range("AO22"), Range("U30"), Range("K38"), Range("R38"), Range("AA38"), Range("AK38"))
If IsEmpty(cell) Then MsgBox " Veuillez renseigner le champ " & cell.Offset(-3, 0): Exit Sub
Next
For Each cell In Application.Cells(22, 10)
If IsEmpty(cell) Then MsgBox " Veuillez renseigner le champ " & cell.Offset(-3, -4): Exit Sub
Next
End With
Sheets("Propale").Visible = True
Sheets("Accueil").Visible = False
End Sub