Sub recherche_ligne_rap()
With Sheets("Code").Range("LFormatage_RAP")
Set ici = .Find(var_corps & var_grade, lookat:=xlWhole)
If Not ici Is Nothing Then
lignerap = ici.Offset(0, 1)
End If
End With
'lignerap = 0
'recherchelignerap = 2
' While recherchelignerap < 41
' If (var_corps & var_grade) = Feuil16.Range("O" & recherchelignerap).Value Then
' lignerap = Feuil16.Range("P" & recherchelignerap).Value
' End If
' recherchelignerap = recherchelignerap + 1
' Wend
End Sub