VBA création d'une colonne avec 2 conditions

Sub insertion()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name Like "VENTES*" And sh.Range("E1") <> "" And sh.Range("A1") = "secteur" Then
sh.Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next sh
End Sub

'Déclaration de la variable de boucle
Dim sh As Worksheet
'Parcours de toutes les feuilles
For Each sh In Worksheets
     If Left(sh.Name, 6) = "VENTES" And sh.Range("A1") = "secteur" Then
        sh.Columns(5).Insert xlToRight
     End If
Next