Sub www()
Dim Derlig&, col&, c&
Dim InitPays, InitNom
Derlig = Worksheets("Slalom").Range("K" & Rows.Count).End(xlUp).Row
col = Cells(2, Cells.Columns.Count).End(xlToLeft).Column 'cpte les colonnes
If Range("e2") = "" Then: une: Exit Sub
Set ski = Cells(2, col).Offset(0, 2)
ski.Select
For c = 2 To Derlig
InitNom = Cells(c, col)
InitPays = Cells(c, col)
InitNom = Left(InitNom, Len(InitNom) - 6)
Cells(c, col + 1).Value = InitNom
InitPays = Right(InitPays, 4)
InitPays = Left(InitPays, Len(InitPays) - 1)
Cells(c, col + 2).Value = InitPays
Next
End Sub