Commet dire feuille suivante en vba ?

Sub verif_erreur_environ()


If ActiveSheet.Range("l1").Value < ActiveSheet.Range("m1").Value Then

Dim refairequestionnaireenviron As Integer
For i= 1 to 3 '(nombre de feuille)
refairequestionnaireenviron = MsgBox("Vous devez répondre à toutes les questions !" & (Chr(10)) & " Voulez vous recommencer ? ", 36, "Alerte")
If refairequestionnaireenviron = vbYes Then Sheets("Question environement").Activate
If refairequestionnaireenviron = vbNo Then MsgBox "Les Résultats risquent d' être faux ?!", 0 + vbCritical
Else 
if i = 1 then nomfeuille = "Question activité"
if i = 2 then nomfeuille = "Question activité2"
if i = 2 then nomfeuille = "Question activité3"
Worksheets(nomfeuille).Activate

next i
End If

End Sub

If Not ActiveSheet.Index = Sheets.Count Then
    Sheets(ActiveSheet.Index + 1).Activate
End If

.....
Else
 If activesheet.index< sheets.Count Then
  Sheets(Activesheet.index+1).ActivAte
 end if
End If