Sub IncrMois()
Const Vals = "premier,janvier,chaussure,réveil,souris,rigolo,sérieux,pelle à tarte,dernier"
Dim v, i As Long
v = Split(Vals, ",")
For i = LBound(v) To UBound(v)
If v(i) = [A1] Then Exit For
Next i
If i > UBound(v) Then
'si pas trouvé,
MsgBox "Mot: " & [A1] & " pas dans la liste"
ElseIf i = UBound(v) Then
' le mot est en fin de liste, on affiche le 1er élément de la liste
[A1] = v(LBound(v))
Else
' on affiche l'élément suivant de la liste
[A1] = v(i + 1)
End If
End Sub