Bonjour djessica,
Tout d'abord, ne diffuse pas "comme ça" des informations qui pourraient être confidentielles.
Efface les et mets des info bidons.
Ensuite, pour ton soucis :
Range("F9:F98").Select
Selection.Insert Shift:=xlToRight
Evidemment, il faut adapter la plage.
Cela peut se faire à l'aide d'un Inputbox (j'aime bien ça en ce moment, moi) qui demanderait sur quelle colonne il faut ajouter la colonne. Le nombre de ligne étant fixe et connu.
QuelleColonne = Inputbox("Donnez la colonne : ")
Range(QuelleColonne & "9:" & QuelleColonne & "299").Select
Selection.Insert Shift:=xlToRight
J'ai choisi l'option d'insertion de cellules plutôt que la colonne car je suppose qu'une insertion entre les colonnes K et S n'est peut être pas souhaitable.
En espérant que cela te dépanne.
Abel.