For x = 2 To i
With CBmetier
.AddItem Sheets("Sources").Range("F" & x)
End With
With CBville
.AddItem Sheets("Sources").Range("A" & x)
End With
With CBcodepostal
.AddItem Sheets("Sources").Range("B" & x)
End With
With CBniveau
.AddItem Sheets("Sources").Range("C" & x)
End With
With CBville
.AddItem Sheets("Sources").Range("E" & x)
End With
Next x
End Sub