Sub Majeur_ou_Mineur_11()
Dim i&, j&, cs&, d As Date, r(), s()
With Sheets("DATA")
r = .Range("Date_Naissance").Resize(, 3).Value
s = .Range("Date_Réf").Resize(UBound(r)).Value
cs = UBound(s, 2)
d = Date
d = DateSerial(Year(d) - 18, Month(d), Day(d))
For i = 2 To UBound(r)
If r(i, 1) <= d Then
r(i, 2) = 1: r(i, 3) = Empty
For j = 1 To cs
If IsEmpty(s(i, j)) Then s(i, j) = 20
Next
Else
r(i, 2) = Empty: r(i, 3) = 1
For j = 1 To cs
If IsEmpty(s(i, j)) Then s(i, j) = 10
Next
End If
Next
.Range("Date_Naissance").Resize(, 3).Value = r
.Range("Date_Réf").Resize(UBound(r)).Value = s
End With
End Sub