XL 2019 Insertion colonnes dans certaines feuilles du classeur

Bastien43 à dit:

Bonjour,

Je cherche à ajouter un certains nombre de colonnes à certaines feuilles seulement du classeur (nommées CV01, CV02, CV03 ....)

Voici mon code. Il ne marche pas, pourriez vous m'aider svp ?

Le nombre de colonne n'est pas pris en compte puis les feuilles CV... n'ont plus.

Je vous remercie,
Cordialement
Bastien

VB:

Option Explicit

Sub InsererColonne()

    Dim NbrColonne As String
    Dim ws As Worksheet
 
    NbrColonne = InputBox("Nombre de colonnes")
 
    If NbrColonne <> "" Then
        If IsNumeric(NbrColonne) Then
            For Each ws In Worksheets
                If ws.Name = "CV*" Then
                     Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
                End If
           Next ws
        End If
    End If
 
End Sub

Cliquez pour agrandir...

Sub InsererColonne()
    Dim NbrColonne As String
    Dim ws As Worksheet
    NbrColonne = InputBox("Nombre de colonnes")
    If NbrColonne <> "" And IsNumeric(NbrColonne) Then
        If NbrColonne < 1 Then Exit Sub
        For Each ws In Worksheets
            If UCase(Left(ws.Name, 2)) = "CV" Then
                ws.Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
            End If
        Next ws
    End If
End Sub