Sub Macro1()
'Dim pl As Range
Dim cel As Range
'Dim test As Boolean
'Dim msg1 As String
'Set pl = Range("A7:L26")
For Each cel In Range("A7:A26")
If cel.Value <> "" And cel.Offset(0, 4).Value < 1 Then
'test = True
'msg1 = "- le nombre d'heures n'est pas renseigné." & Chr(13)
Application.Union(Selection, Range(cel, cel.Offset(0, 11))).Select
End If
Next cel
End Sub