Probléme selection sheet

svp j'ai une probléme lors du selction d'une feuille

Private Sub btnOK_Click()

Dim année1, mois1, test As Integer

Dim osheet As Integer

Dim base() As Variant

Dim S(3, 1) As String

Dim D(4, 2), T(4, 1) As Variant

Dim SousBase() As Variant

Dim i, j, k, l, m, n, o, lNbL As Long

test = 0

T(1, 1) = "T.S en DI"

D(1, 1) = " DI reçus"

D(1, 2) = " DI réaliser"

S(1, 1) = "1-10"

S(2, 1) = "10-20"

S(3, 1) = "20-fin"

If Périodetauxderealisation.TextAnnée = "" Or Périodetauxderealisation.TextMois = "" Then

MsgBox "merci de remplire les champs"

Exit Sub

End If

année1 = Périodetauxderealisation.TextAnnée.Value

mois1 = Périodetauxderealisation.TextMois.Value

Application.ScreenUpdating = False

Sheets("source").Select

base() = Range("A1").CurrentRegion

ReDim SousBase(UBound(base, 2), 1)

For i = 1 To UBound(base, 2)

SousBase(i, 1) = base(1, i) 'sous base une colone

lNbL = 1

Next

Sheets("Acceuil").Select 'probléme dans la selection de cette feuille

For k = 2 To UBound(base, 1) ....................................

Bonjour,

la feuille se nomme ACCUEIL ou ACCEUIL

M12 a écrit :

Bonjour,

la feuille se nomme ACCUEIL ou ACCEUIL

Ui la feuille se nomme acceuil j'ai meme esseyer avec copier et coller

Re,

place ton classeur en PJ sans confidentialité dedans pour test