Option Explicit
Sub GenerateComboBox()
Dim Combox As OLEObject
Dim i As Integer
Dim Target As Range
For i = 8 To 250
Set Target = ActiveSheet.Range("G" & i)
Set Combox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Combox
With .Object.Font
.Name = "Arial"
.Size = 8
End With
.ListFillRange = "A4:A12"
.LinkedCell = Target.Offset(0, -4).Address(0, 0)
End With
Next
End Sub
Sub Leon() 'le nettoyeur !!! lol
Dim Combox As OLEObject
For Each Combox In ActiveSheet.OLEObjects
Combox.Delete
Next
Range("G8:G258").ClearContents
End Sub
Sub SeeCode()
ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.CodePane.Show
End Sub