Merci de votre réponse, mais j'ai trouvé ceci qui fonctionne
Sub InsCell()
'decalage de 3 cellules
Sheets("Datas").Select
Dim a As Integer
a = Cells(1, Columns.Count).End(xlToLeft).Column * 4
For i = 2 To a
Columns(i).Select
Selection.Insert Shift = x1Right
Selection.Insert Shift = x1Right
Selection.Insert Shift = x1Right
i = i + 3
Next i
End Sub