Sub CellulesVERSdroite()
'
' CellulesVERSdroite Macro
' Macro enregistrée le 02/06/2019 par utilisateur
'

Range("T4").Select
For a = 1 to S4
    Selection.Insert Shift:=xlToRight
next a

Range("T5").Select
For b = 1 to S5
    Selection.Insert Shift:=xlToRight
next b

Range("T6").Select
For c = 1 to S6
    Selection.Insert Shift:=xlToRight
next c

Range("T7").Select
For d = 1 to S7
    Selection.Insert Shift:=xlToRight
next d

Range("T8").Select
For e = 1 to S8
    Selection.Insert Shift:=xlToRight
next e

Range("T9").Select
For f = 1 to S9
    Selection.Insert Shift:=xlToRight
next f

Range("T10").Select
For g = 1 to S10
    Selection.Insert Shift:=xlToRight
next g

Range("T11").Select
For h = 1 to S11
    Selection.Insert Shift:=xlToRight
next h

End Sub