Soucis de concaténation

Bonjour,

j'ai un soucis. J'azi beaucoup de ComboBox découlant d'un formulaire et je voudrais utiliser une boucle pour les traiter mais ça ne fonctionne pas...

NomFeuilleDepart = ActiveSheet.Name

Range("A10", "Y250").Clear

For x = 1 To 25
For n = 1 To 25
If Cells(21, i) Like ComboBox & x & .Value Then
Sheets("consolidation").Select
Cells(21, i).EntireColumn.Select
Selection.Copy
Sheets(NomFeuilleDepart).Select
Cells(21, i).EntireColumn.Select
ActiveSheet.Paste
Exit For
End If
Next i
Next x

Je sais pas si c'eest claire mais merci.