Vba selection feuille sauf

Bonjour à tous,

je suis novice avec VBA, j'ai besoin de votre aide:
Dans la macros ci-dessous, je aimerais savoir si c'est possible de la modifier pour qu'elle n'impute pas les 4 dernière feuille du fichier. Merci par avance pour votre contribution.



'intcol As Integer

Public Sub InsérerValeurs()

Dim i As Integer, strNomFichier As String, intNumFichier As Integer, strTexte As String, strSplit() As String, j As Integer, Var2 As Office.FileDialog, strDate As String, strHeure As String, _
intDispo As Integer
i = 1
intNumFichier = FreeFile
On Error GoTo fin

Sheets(1).Select

Var1 = Worksheets.Count

'compte nb de cellules pleines
intcol = Application.WorksheetFunction.CountA(Range("F13", "BC13"))
intDispo = Application.WorksheetFunction.CountA(Range("F10", "BC10"))
If intcol = intDispo Then
If MsgBox("Carte pleine, voulez vous ajouter des colonnes ?", vbYesNo, "Demande de confirmation") = vbYes Then
Call ajouter_colonnes
Else: Exit Sub
End If
End If


Sheets(1).Select
intcol = Application.WorksheetFunction.CountA(Range("F13", "BC13"))

'fenetre saisie de la date
strDate = Application.InputBox("Saisissez la date", "", Format(Now, "dd.mm"))
Cells(11, intcol + 6).Select
Selection.NumberFormat = "@"
Cells(11, intcol + 6) = strDate
'saisie Equipe

UserForm1.Show

'fenetre selection fichier txt
Set Var2 = Application.FileDialog(msoFileDialogFilePicker)
With Var2
.InitialFileName = ThisWorkbook.Path
.Title = "sélectionnez un fichier ..."

If Var2.Show() Then


Open Var2.SelectedItems(1) For Input As intNumFichier

j = 13

'boucle while jusqu'à la fin du fichier intNumFichier
Do While Not EOF(intNumFichier)
'lecture de chaque ligne du fichier intNumFichier et affectation à la variable strTexte
For i = 1 To Var1 - 2

Sheets(i).Select

Line Input #intNumFichier, strTexte
'converti la ligne strTexte en un tableau 1 dimension le séparateur est le ;

strSplit = Strings.Split(strTexte, ";")
'copie dans la colonne j de la valeur de la sixième case du tableau 1D

Cells(j, intcol + 6) = strSplit(6)


Next
j = j + 1

Loop


End If
End With
Set Var2 = Nothing
Close intNumFich
Sheets(1).Select


fin:

End Sub