For ligne = 8 To ActiveSheet.Range("C65536").End(xlUp).Row
For colonne = 27 To 38
If ActiveSheet.Cells(colonne, ligne).Interior.ColorIndex <> 16 Then
Range("AA8:AL" & Range("C65536").End(xlUp).Row).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=L6C58:L7C58"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next colonne
Next ligne