Bonjour,
Sans fichier sur lequel travailler ...
Une ébauche ...
Private Sub Worksheet_Activate()
Dim NbF, NbCol As Integer
NbCol = Cells(1, Columns.Count).End(xlToLeft).Column
NbF = ThisWorkbook.Sheets.Count
If NbCol < NbF Then Columns(NbCol + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
ric