Simplifier un ensemble de macro

Bonjour à tous,

Afin de choisir une colonne en fonction d'une valeur rentrée, j'ai mis en place la macro suivante :

If exemple.Text = "1" Then
Range("C2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If

cependant, pour chaque valeur ( A, B, C, D ...) j'y est associé une colonne.

donc pour 40 valeurs differentes j'ai exactement le meme code, sauf que la valeur et l'indice de la colonne change :

If exemple.Text = "2" Then
Range("D2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
If exemple.Text = "3" Then
Range("E2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
If exemple.Text = "4" Then
Range("F2").Select
While ActiveCell.Value <> ""
Combmateriel.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
End If
... ... ...

je voulais savoir si il existait une solution afinde simplifier tout ça de façon a n'avoir plus qu'un seul code. surtout dans le cas d'une modification des données avec une pour eviter d'avoir à modifier l'ensemble du code.
(ce programme comporte 13 feuilles avec sur chacune entre 15 et 60 données donc autant de codes).

merci pour votre aide
batdu07