Bonjour,
J'ai dû faire une erreur quelque part :
Scan_sheet_name = "Détail"
row_number = Sheets(Scan_sheet_name).UsedRange.Rows.Count
For a = 2 To row_number Step 1
var = WorksheetFunction.Proper(UCase(Left(Sheets(Scan_sheet_name).Cells(a, 2), 2)))
.../...
Le résultat donne "Fr", moi je veux que ca donne "FR"
Merci !