Sub initvar()
Dim r As Range
With Sheets("GAMMES").Rows(1)
Set r = .Find("Type 1", , xlValues, xlWhole)
If Not r Is Nothing Then col_f1_gamme = r.Column
Set r = Nothing
Set r = .Find("Type 1 : Largeur Bobine Matière 1", , xlValues, xlWhole)
If Not r Is Nothing Then col_f1mat1lg_gamme = r.Column
Set r = Nothing
Set r = .Find("Type 1 : Pas Bobine Matière 1", , xlValues, xlWhole)
If Not r Is Nothing Then col_f1mat1pas_gamme = r.Column
Set r = Nothing
Set r = .Find("Type 1 : Largeur Bobine Matière 2", , xlValues, xlWhole)
If Not r Is Nothing Then col_f1mat1pas_gamme = r.Column
Set r = Nothing
'...
End With
End Sub