Public Function recherche_indexcampagne(text As String, colonne As Integer)
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
'fonction de recherche de la ligne
Set celluletrouvee = Worksheets("parametres").Range(Cells(2, colonne), Cells(1000000, colonne)).Find(text, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("Erreur fonction recherche_indexcampagne")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
'MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
recherche_indexcampagne = ligne
End Function