Dim codepaysSelection As Variant
Dim PaysSelection As String
PaysSelection = InputBox("Veuillez sélectionner le code pays pour le calcul P&L")
If PaysSelection = "" Then Exit Sub
codepaysSelection = Application.Match("PaysSelection", Range("F4:HR4"), 0)
If VarType(codepaysSelection) = vbError Then MsgBox "non trouvé"