Salut, Merci pour votre aide.
Voici le petit bout de programme :
Sub hide()
Dim Model1 As String
Model1 = InputBox("Enter The Model Number", "Model1", defaut)
Column = ActiveCell.Column
MsgBox ("Colonne n° " & Column)
Columns("Column").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Columns("B:B").Select
ActiveSheet.Paste
End Sub
//Je veux pouvoir rentrer un model, le model etant mon en tete de colonne, trouver la colonne de ce model, copier cette colonne et coller cette colonne dans la colonne B:B de le feuille 2//